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INTRODUCTION 



PRESENTATION OF INFORMATION IN THIS MANUAL 



It is not intended that this manual 
should be read sequentially. It is essen- 
tially a reference book and an understand- 
ing of the information in it does not 
depend on having read preceding informa- 
tion. 

The index should be consulted whenever 
seeking information to support statements 
in the text. 



SYNTAX NOTATION IN THIS MANUAL 



Throughout this manual, wherever a PL/I 
statement — or some other combination of 
elements — is discussed, the manner of 
writing that statement or phrase is illus- 
trated with a uniform system of notation. 

This notation is not a part of PL/I; it 
is a standardized notation that may be used 
to describe the syntax -- or construction 
— of any programming language. It pro- 
vides a brief but precise explanation of 
the general patterns that the language 
permits. It does not describe the meaning 
of the language elements, merely their 
structure ; that is, it indicates the order 
in which the elements may (or must) appear, 
punctuation that is required, and options 
that are allowed. 

The following rules explain the use of 
this notation for any programming language; 
only the examples apply specifically to 
PL/I: 

1. A no tation variable is the name of a 
general class of elements in the pro- 
gramming language. A notation varia- 
ble must consist of: 

a. Lower-case letters, decimal 
digits, and hyphens and must begin 
with a letter. 

b. A combination of lower-case and 
upper- case letters. There must be 
one portion in all lower-case let- 
ters and one portion in all upper- 
case letters, and the two portions 
must be separated by a hyphen. 

All such variables used are 
defined in the manual either formally, 
using this notation, or are defined in 
prose. 



Examples: 

a. digit. This denotes the occur- 
rence of a digit, which may be 
through 9 inclusive. 

b. filename. This denotes the occur- 
rence of the notation variable 
named filename. An explanation of 
filename is given elsewhere in the 
manual. 

c. DO-statement. This denotes the 
occurrence of a DO statement. The 
upper-case letters are used for 
emphasis. 

2. A notation constant denotes the liter- 
al occurrence of the characters rep- 
resented. A notation constant con- 
sists either of all CAPITAL letters or 
of a special character. 

Example: 

DECLARE identifier FIXED; 

This denotes the literal occurrence 
of the word DECLARE followed by the 
notation variable "identifier," 
which is defined elsewhere, fol- 
lowed by the literal occurrence of 
the word FIXED followed by the 
literal occurrence of the semicolon 
(;)• 

3. The term "syntactical unit," which is 
used in subsequent rules, is defined 
as one of the following: 

a. a single variable or constant, or 

b. any collection of variables, con- 
stants, syntax-language symbols, 
and reserved words surrounded by 
braces or brackets. 

4. Braces [ } are used to denote group- 
ing. 



Example: 

identifier 



FIXED 
FLOAT ' 



The vertical stacking of syntacti- 
cal units indicates that a choice 
is to be made. The above example 
indicates that the variable 
"identifier" must be followed by 
the literal occurrence of either 
the word FIXED or the word FLOAT. 
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5. The vertical stroke | indicates that a 
choice is to be made. 

Example: 

identifier { FIXED | FLOAT} 

This has exactly the same meaning 
as the above example. Both methods 
are used in this manual to display 
alternatives. 

6. Square brackets [ ] denote options. 
Anything enclosed in brackets may 
appear one time or may not appear at 
all. 

Example: 

CHARACTER (length) [VARYING] 

This denotes the literal occurrence 
of the word CHARACTER followed by 
the notation variable "length" 
enclosed in parentheses and option- 
ally followed by the literal occur- 
rence of the word VARYING. If, in 
rule 4, the two alternatives also 
were optional, the vertical stack- 
ing would be within brackets, and 
there would be no need for braces. 

7. Three dots ... denote the occurrence 
of the immediately preceding syntacti- 
cal unit one or more times in succes- 
sion. 



Example: 

[digit] . . . 



The notation variable, "digit," may 
or may not occur since it is sur- 
rounded by brackets. If it does 
occur, it may be repeated one or 
more times. 



Underlining is used to denote an ele- 
ment in the language being described 
when there is conflict between this 
element and one in the syntax lan- 
guage. 



Example: 

operand (6|J_> operand 



This denotes that the variables 
"operand" are separated by either 
an "and" U) or an "or" C|). The 
notation constant | is underlined 
in order to distinguish the "or" 
symbol in the PL/I language from 
the "or" symbols in the syntax 
language. 
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CHAPTER 1 



PROGRAM ELEMENTS 



BASIC LANGUAGE STRUCTURE 



PL/I allows the programmer to write the 
statements of his program in a free-field 
format. A statement, which is a string of 
characters, is always terminated by the 
special character, semicolon. A program 
which is, in turn, a sequence of state- 
ments, can thus be regarded simply as a 
single string of characters, with no spe- 
cial internal grouping. Hence, a PL/I 
program can be physically represented and 
transmitted to a computer in a natural way 
by means of almost any input medium, 
including a typewriter at a remote termi- 
nal. 

Input conventions, depending upon the 
machine configuration or the compiler, can, 
of course, be set up so that the program 
string may be presented to the computer 
through the familiar medium of fixed-length 
records, e.g., punched cards. This can be 
accomplished by using certain predetermined 
fields of the records for the program 
string, and other fields for arbitrary 
purposes . 



LANGUAGE CHARACTER SETS 



One of two character sets may be used to 
write a source program: either a 
60-character set or a 48-character set. No 
assumptions are made in the language about 
external or internal codes for the 
characters., For a given program, the 
choice between the two sets is optional. 
(In practice, this choice will depend upon 
the available equipment.) 



60-Character Set 



The 60-character set is composed of 
digits, special characters, and English 
language alphabetic characters. 

There are 29 alphabetic characters , let- 
ters A through Z and three additional 
characters (alphabetic extenders) that are 
defined as and treated as alphabetic char- 
acters. These characters and the graphics 
by which they are represented are as fol- 
lows : 



Currency symbol 
Commercial At-sign 
Number sign 



There are ten digits . Decimal digits 
are the digits through 9. A binary digit 
(bit) is either a or a 1. 

An alphameric character is either an 
alphabetic character or a digit. 

There are 21 special characters . The 
names and graphics by which they are rep- 
resented are: 

Name Graphic 

Blank 

Equal or Assignment symbol = 

Plus + 

Minus 

Asterisk or Multiply symbol * 

Slash or Divide symbol / 

Left Parenthesis ( 

Right Parenthesis ) 

Comma , 

Decimal Point or Period 

Quotation mark ' 

Percent symbol % 

Semicolon ; 

Colon : 

Not symbol -| 

And symbol & 

Or symbol | 

Greater Than symbol > 

Less Than symbol < 

Break_character _ 

(used as shown) 

Question mark ? 

Note that the quotation mark used in 
PL/I is the single quotation mark (also 
known as an apostrophe or prime) . 
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Two consecutive special characters are 
sometimes used as operators, e.g., >=, 
denoting "greater than or equal to" ; | | , 
denoting concatenation. 



denoting equal to 



denoting not equal to 



48-Character Set 



<= 



denoting less than or equal to 



The characters making up the 
4 8- character set are identical to those of 
the 60-character set, with restrictions and 
changes as described in Appendix 5. 



DELIMITERS 



Certain characters are used 
delimiters and fall into three classes 

operators 

parentheses 

separators and other delimiters 



as 



< denoting less than 
-, < denoting not less than 
Bit-String Operators 

The bit-string operators are: 



denoting not 
denoting and 
denoting or 



String Operator 

The string operator is: 
| | denoting concatenation 



Operators 



Oper a tors used by the language are 
divided into four types: 

arithmetic operators 
comparison operators 
bit-string operators 
string operators 



Parentheses 



Parentheses are used in expressions, for 
enclosing lists, and for specifying infor- 
mation associated with various keywords. 



( 



left parenthesis 
right parenthesis 



Arithmetic Operators 

The arith metic operators are: 

+ denoting addition or prefix plus 

denoting subtraction or prefix 
minus 



* 

/ 

** 



denoting multiplication 
denoting division 
denoting exponentiation 



Comparison Operators 

The compa rison operators are : 

> denoting greater than 

t > denoting not greater than 

>= denoting greater than or equal 
to 



Separators and Other Delimiters 



Name 
comma 



semicolon 

assignment 
symbol 



colon 



blank 

quotation 
mark 



Graphic Use 

, separates elements of a 
list 

; terminates statements 

used in assignment 
statement and DO 
statement 

follows labels and con- 
dition prefixes; also 
used with dimension 
specifications 

used as a separator 

encloses string con- 
stants and picture 
specifications 
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Name 
period 



percent 
symbol 

arrow 



Graphic 



-> 



Use 
separates items in 
qualified names; used 
as a decimal or 
binary point in con- 
stants 

precedes compile-time 
statements 

qualifies a reference 
to a based variable 



DATA CHARACTER SET 



statement identifiers 

attributes 

separating keywords 

built-in function names 

options 

conditions 

Some keywords may be written in an 
abbreviated form and these are listed in 
Appendix 4 . 



Although the language character set is a 
fixed set defined for the language, the 
data c haracte r set has not been limited. 
Data may be represented by characters from 
the language set plus any other characters 
permitted by the particular machine con- 
figuration. 

Any character that will result in a 
unique bit pattern is a valid character in 
the data character set, and may be used in 
source programs to construct character- 
string constants and comments. 



Statement Identifiers 



A statement identifier is a sequence of 

one or more keywords used to define the 

function of a statement (see "Simple 
Statements") . 



Examples: 

GO TO 

DECLARE 

READ 



COLLATING SEQUENCE 



The collating sequence in PL/I is 
implementation- defined. 



IDENTIFIERS 



An ident ifier is a string of alphameric 
and break characters, not contained in a 
comment or constant, preceded and followed 
by a delimiter; the initial character must 
always be alphabetic. 



Attributes 



A ttributes are keywords that specify the 
characteristics of data, procedures, and 
other elements of the language. 

Example: 

FLOAT 

RECURSIVE 

SEQUENTIAL 



Length of Identifiers 



The maximum length of identifiers that a 
programmer constructs in writing a PL/I 
program is implementation defined. 



Se parating Keywords 



The five separating keywords are used to 
separate parts of the IF and DO statements. 
They are THEN, ELSE, BY, TO, WHILE. 



KEYWORDS 



Built-in Function Names 



A keyword is an identifier which is a 
part of the language. Keywords are not 
reserved words. They may be classified as 
follows : 



function 



A built-in 

that is the name of an 
by the language and 



name is a keyword 

algorithm provided 

accessible to the 

"Function References and 



programmer (see 

Function Procedures" in Chapter 5). 
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Examples : 



COMMENTS 



DATE 
EXP 



Options 



An o ptio n is a specification that may be 
used by the programmer to influence the 
execution of a statement. 



Examples : 

TASK 

BY NAME 



Conditions 



General format: 

/* [character-string] */ 

Comments are normally used for documenta- 
tion and do not participate in the execu- 
tion of a program. A comment may be used 
wherever a blank is permitted (except in a 
character- string constant). The character 
string in a comment must not contain the 
character combination */ in that sequence. 

Example: 

LABEL: /* THE BLOCK OF CODING BETWEEN 
BEGIN-END IS USED FOR PAYROLL CALCULA- 
TIONS */ 

BEGIN; 



A co n dition is a keyword used in the ON, 
SIGNAL, and REVERT statements, and as a 
prefix to other statements (see 
"Prefixes"). The programmer may specify 
special action on occurrence of the 
condition (see "Interrupt Operations"). 

Examples : 

OVERFLOW 
ZERODIVIDE 



THE USE OF BLANKS 



END; 



BASIC PROGRAM STRUCTURE 



A PL/I program is constructed from basic 
program elements called statements . 

Statements are grouped into larger 

program- elements, the group and the block . 

There are two types of statements: simple 
and compound . 



Identifiers, constants (except 
character-string constants), picture speci- 
fications, composite operators (e.g., i = )r 
and the class of dummy variables iSUB (see 
"The DEFINED Attribute" in Chapter 4) may 
not contain blanks. 

Identifiers, constants, iSUB dummy vari- 
ables, or picture specifications may not be 
immediately adjacent. They must be sepa- 
rated by a 60-character set operator, 
assignment symbol, percent symbol, arrow, 
parenthesis, colon, semicolon, comma, per- 
iod, blank, or comment. Moreover, addi- 
tional intervening blanks or comments are 
always permitted. Blanks are optional 
between keywords of the statement identifi- 
er GO TO. 

Examples : 

CALLA is not equivalent to CALL A 

A TO B BY C is not equivalent to ATOBBYC 

AB+BC is equivalent to AB + BC 



SIMPLE STATEMENTS 



A simple statement is defined as: 

[ [statement- identifier] 
statement-body] ; 

The "statement identifier," if it appears, 
is a keyword , characterizing the kind of 
statement. If it does not appear, and the 
statement body does appear, then the state- 
ment is an assignment statement . If only 
the semicolon appears, the statement is 
called a null statement . 

Examples: 

DO I = J TO (DO is the keyword) 
10; 

A = B + C; (assignment statement) 

; (null statement) 
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COMPOUND STATEMENTS 



Condition Prefixes 



A comp ound statement is a statement that 
contains other program-elements. There are 
two of them: 



The IF compound statement 



The ON compound statement 



The final contained statement of a com- 
pound statement is a simple statement and 
thus has a terminal semicolon. Hence, the 
compound statement will automatically be 
terminated by this semicolon. 



Examples : 

IF A=B THEN GO TO Si; ELSE A=C ; 

ON OVERFLOW GO TO OVFIX; 

Each PL/I statement is described in the 
alphabetic list of statements in Chapter 8. 



PREFIXES 



There are two types of prefixes 
prefixes and condition prefixes. 



label 



A condition prefix specifies whether or 
not a program interrupt will result upon 
the occurrence of the specified condition. 
(For information regarding the use of the 
condition prefix see the section "Interrupt 
Operations" in Chapter 6.) 

One or more condition prefixes may be 
attached to a statement. 

Each condition prefix is followed by a 
colon to separate it from the rest of the 
statement or from other prefixes; condition 
prefixes precede the entire statement, 
including any possible label prefixes for 
the statement. 

A condition prefix is a list of condi- 
tion names, separated by commas and 
enclosed in parentheses. Thus, a statement 
with a set of prefixes has the following 
general form: 

{ (condition-name [ , condition- 
name] ...):>... [label: ] . . . 
statement 

The condition names are chosen from the 
following fixed set: 

UNDERFLOW 

OVERFLOW 

ZERODIVIDE 

FIXEDOVERFLOW 

CONVERSION 

SIZE 

STRINGRANGE 

SUBSCRIPTRANGE 

CHECK (identifier-list) 



Label Prefixes 



Statements may 
reference to them, 
the following form: 



be labeled to permit 
A labeled statement has 



identifier: [identifier: ] . . .statement 



Note: CHECK (identifier list) may be used 
prefix only with the PROCEDURE and 



as a 

BEGIN statements 



The meanings of these conditions are 
explained in "The ON Statement," in Chapter 



The one or more "identifiers" are called 
labels and may be used interchangeably to 
refer to that statement. 

Labels appearing before PROCEDURE and 
ENTRY statements are special cases and are 
known as e ntry name s (see "Procedure 
References"). All other labels are called 
st atement labels . 

A label appearing before a statement is 
said to be declare d, by virtue of its 
appearance as a label. 



Statement labels appearing 
DECLARE statements are ignored. 



before 



Any of these condition names may be 
preceded by the word NO. If NO is used, 
there can be no intervening blank between 
NO and the condition. For example, NOCON- 
VERSION can be specified in the prefix 
list. 



GROUPS 



A grou p is a collection of one or more 
statements and is used for control purpos- 
es . 
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A group has one of two forms. The first 
form, called a DO-group, is: 



[label:] . 



DO-statement 
program- e lement - 1 
program- element- 2 



END [label]; 



The label following END is one of the 
labels of the DO statement (see "Use of the 
END Statement" in this chapter) . 

The DO statement is called the heading 
sta t emen t of the DO-group, and may specify 
iteration- Each program element represents 
one or more statements. 

The second form of a group is simply a 
single statement, as follows: 



[label:] 



statement 



The "statement" is any statement except DO, 
END, PROCEDURE, BEGIN, DECLARE, FORMAT, or 
ENTRY. 

Example of the first form: 



ALPHA: DO; 

A=B*C; 



IF A < THEN DO; B=l; C=0; END; 



END ALPHA; 



In the example above, any of the single 
statements -- except the DO and END state- 
ments --- is an example of the second form 
of a group. 



BLOCKS 



A block is a collection of statements 
that defines the program region — or scope 
throughout which an identifier is esta- 
blished as a name. It also is used for 
control purposes. 

There are two kinds of blocks, begin 
blocks and p rocedure blocks . 

A begin block has the general form: 



[label:] 



BEGIN-statement 
program- element- 1 
program- e lement- 2 



END [label]; 



The label following END is one of the 
labels of the BEGIN statement (see "Use of 
the END Statement" in this chapter) . 

A procedure block, or procedure, has the 
general form: 



label: [label:] 



PROCEDURE- s t a t ement 
program- el ement-1 
program-el ement- 2 



storage 

age Classes," 

an important 



END [label] ; 

The label following END is one of the 
labels of the PROCEDURE statement (see "Use 
of the END Statement" in this chapter) . 

The BEGIN statement and the PROCEDURE 
statement in the above forms are called 
heading statements . 

While the labels of the BEGIN statement 
are optional, the PROCEDURE statement must 
have at least one label. 

Although the begin block and the proce- 
dure have a physical resemblance and play 
the same role in delimiting scope of names 
(see "Scope of Declarations," in Chapter 4) 
and defining allocation and freeing of 
(see "Allocation of Data and Stor- 
in Chapter 6) , they differ in 
functional sense. A begin 
block, like a single statement, is activat- 
ed by normal sequential flow (except when 
used as an on-unit) , and it can appear 
wherever a single statement can appear. A 
procedure can only be activated remotely by 
CALL statements, by statements in which a 
CALL option appears, or by function ref- 
erences. When a program containing a pro- 
cedure is executed, control passes around 
the procedure, from the statement before 
the PROCEDURE statement to the statement 
after the END statement of the procedure. 

Since a procedure can be activated only 
by a reference to it, every procedure must 
have a name. The label required for the 
heading statement of a procedure serves as 
the procedure name . More than one label 
provides more than one procedure name. 

The procedure name gives a means of 
activating the procedure at its primary 
entry point . Secondary entry points can 
also be defined for a procedure by use of 
the ENTRY statement. The labels preceding 
all ENTRY statements in a given procedure 
and the heading statement of the procedure 
are collectively called entry names for the 
procedure. 

As the above definition of block 
implies, any block A can include another 
block B, but partial overlap is not possi- 
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ble; block B must be completely included in 
block A. Such nesting may be specified to 
any depth. 



A procedure that is not included in any 
other block is called an external p roce- 
dure . A procedure included in some other 
block is called an internal procedure . 

Every begin block must be included in 
some other block. Hence, the only external 
blocks are external procedures. 

All of the text of a begin block except 
the labels preceding the heading statement 
of the block is said to be contained i n the 
block. 

All of the text of a procedure except 
the entry names of the procedure is said to 
be contained in the procedure. 

That part of the text of a block B that 
is contained in block B, but not contained 
in any other block contained in B, is said 
to be internal to block B. 



X is an entry name corresponding to a 
;econdary entry point for procedure C. 

Blocks B and D are begin blocks. 

Block C is an internal procedure. 

The text internal to block A consists of 

PROCEDURE; 
statement 1 
B: 

statement U 
C: 
X: 

statement 9 
END A; 

The text internal to block B consists of 

BEGIN; 
statement 2 
statement 3 

END B; 

The text internal to block C consists of 



The entry names of an external procedure 
are not internal to any procedure and are 
called external names. 



The notion of internal to 
the definition of scope 
Declarations" in Chapter 4). 

Example : 



A: PROCEDURE; 
statement 1 
B: BEGIN; 

statement 2 
statement 3J 
END B; 
statement U 
C : PROCEDURE ; 

statement 5 
X;: ENTRY; 

D: BEGIN; 

statement 
statement 
END D; 
statement 8 
END C; 
statement 9 
END A; 



is vital in 
(see "Scope of 



5] 



In this example, statements 1 through 9 are 
labeled or unlabeled simple statements. 

As the brackets on the right indicate, 
block A contains block B and block C, and 
block C contains block D. 

Block A is an external procedure. The 
procedure name is A, which is an external 
name, and the only entry name for the 
procedure., 



PROCEDURE; 
statement 5 
ENTRY; 
D: 

statement 8 
END C; 

The text internal to block D consists of 

BEGIN; 
statement 6 
statement 7 
END D; 



USE OF THE END STATEMENT 



As the examples above imply, the END 
statement has the form: 

END [label]; 

and is used to terminate a group or a 
block. 

If the optional label following END is 
not used, the END statement terminates that 
unterminated group or block headed by the 
DO, BEGIN, or PROCEDURE statement that 
physically precedes, and appears closest 
to, the END statement. 

If, however, a label (e.g., L) is used 
following END, the statement terminates 
that unclosed group or block headed by the 
DO, BEGIN, or PROCEDURE statement with the 
label L that physically precedes, and 
appears closest to, the END statement. Any 
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groups or blocks headed by DO, BEGIN, or 
PROCEDURE statements contained in the ter- 
minated block L are also automatically 
terminated by the END statement END L. 
This feature eliminates the necessity of 
writing the intermediate END statements to 
terminate the contained blocks and groups. 

The statement labeled L, which heads the 
group or block terminated by the END state- 
ment END L, is internal to a certain block 
in the program (see "Blocks," for a defini- 
tion of i nternal t o) . The terminating 
statement END L, together with its own 
possible statement-labels, is also consid- 
ered to be internal to the same block. (If 
the statement labeled L is a BEGIN or 
PROCEDURE statement, this block is, of 
course, the block L. ) 

The END statement may itself be labeled, 
and a reference to this label can be made 
from any part of the program where the 
label is known. (For a definition of 
known , see "Basic Rule on Use of Names" in 
Chapter 4) . 

Example: 

(a) A: PROCEDURE; 



(b) A: PROCEDURE; 



B: BEGIN; 



A: PROCEDURE; 



C : DC- 



END; 

END; 

X : END ; 

END; 



In example (a), the statement X:END B 
terminates the DO group, the internal pro- 
cedure A, and the block B. The statement 
END A terminates the external procedure A. 
The statement X:END B is internal to block 
B. 



B: BEGIN; 



Example 
(a). 



(b) is equivalent to example 



A : PROCEDURE ; 



DO; 



PROGRAMS 



X: END B; 
END A; 



A program is composed of one or more 
external procedures. 
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CHAPTER 2: DATA ELEMENTS 



Information that is operated on in a 
PL/I objejct program during execution is 
called delta. Each data item has a definite 
type and representation. 

The aim of this chapter is to present a 
discussion of (1) the various organizations 
that data, may have, (2) the methods by 
which data can be referred to, and (3) the 
types of data allowed. 



DATA ORGANIZATION 



Data may be organized as scalar items 
(i.e., single data items) or aggregates of 
data items (i.e., arrays and structures). 
File names, entry names, and programmer- 
defined condition names are not considered 
to be data. 



take on more than one value during the 
execution of a program. The set of values 
that a variable may take on is the range of 
the variable. The range of a variable is 
always restricted to one data type (and, if 
the type is arithmetic, to one base, scale, 
mode, and precision - see "Arithmetic Data" 
in this chapter) . If there are no further 
restrictions declared for the range, the 
variable may assume values over the entire 
set of data of that type. 

Reference is made to a scalar variable 
by a name, which may be a simple name, a 
subscripted name, a qualified name, or a 
subscripted qualified name (see "Naming" in 
this chapter) . 



DATA AGGREGATES 



SCALAR ITEMS 



A data item may be either a constant or 
the value of a scalar variable. Constants 
and scalar variables are called scalar 
items . Scalar variables and scalar data 
items may also be called e lement variables 
and elemen t data items respectively. 



In PL/I, all classes of variable data 
items may be grouped into arrays or struc- 
tures. Rules for this grouping are given 
below. (For the method of referring to an 
array or structure or a particular item of 
an array or structure, see "Naming" in this 
chapter. ) 



Arrays 



Constants 



A const ant is a data item that denotes 
itself, i.e., its representation is both 
its name and its value; thus, it cannot 
change during the execution of a program. 
Each constant has a type, as described 
later in this chapter. A signed constant 
is an arithmetic constant preceded by one 
of the prefix operators + or -. Wherever 
the word "constant" appears alone, and 
refers to an arithmetic constant, it is to 
be assumed to refer to an unsigned 
constant. 



An array is an n- dimensional, ordered 
collection of elements, all of which have 
identical data declarations. (If arithmet- 
ic, all of the elements of the array must 
have the same base, scale, mode, and preci- 
sion or the same picture. If character- 
string or bit-string, all of the elements 
must have the same actual length, if fixed 
length, or the same maximum length, if 
varying length. ) The number of dimensions 
of an array, and the upper and lower bounds 
of each dimension, are specified by the use 
of the dimension attribute. 



Example: 
DECLARE 



A(3,4) j 



Scalar Variables 



A scalar variable , like a constant, 
denotes a data item. This data item is 
called the value of the scalar variable. 
Unlike a constant, however, a variable may 



This statement defines A as an array 
with 2 dimensions: 3 rows and 4 columns. 
The matrix given below illustrates the 
array A. 



A(l,l) A(l,2) 
A(2,l) A(2,2) 
A(3,l) A(3,2) 



A(l,3) A(l,4) 
A(2,3) A(2,U) 
A(3,3) A(3,4) 
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The elements of an array may be 
structures (see "Arrays of Structures"). 



This takes the form: 



Structures 



D(l) 
D(2) 



A structur e is a hierarchical collection 
of scalar variables, arrays, and struc- 
tures. These need not be of the same data 
type nor have the same attributes. 



The outermost structure is a major 
structure, and all contained structures are 
minor structures. 



A structure is specified by declaring 
the major structure name and following it 
with the names of all contained elements. 
Each name is preceded by a level number, 
which is a non-zero decimal integer con- 
stant. A major structure is always at 
level one and all elements contained in a 
structure (at level n) have a level number 
that is numerically greater than n, but 
they need not necessarily be at level n+1, 
nor need they all have the same level 
number . 



The decimal integers before the iden- 
tifiers specify the levels; the decimal 
integer in parentheses specifies the bounds 
of the one-dimensional array. A is defined 
as the major structure and contains the 
minor structure C and the scalar variables 
B and F. C contains D, a one-dimensional 
array with two scalar variables, and the 
scalar variable E. 

3. DECLARE 1 A, 3 B, 2 C; 

This takes the form: 



Note that B and C are at the same 
level although their level numbers 
differ. 



A minor structure at level n contains 
all following items declared with level 
numbers greater than n up to but not 
including the next item with a level number 
less than or equal to n. A major structure 
description is terminated by the declara- 
tion of another item at level one, by the 
declaration of an item having no level 
number, or by the end of a DECLARE state- 
ment. 



Examples : 

, DECLARE 
REGULAR, 



1 PAYROLL, 2 NAME, 2 HOURS, 
3 OVERTIME, 2 RATE; 



takes the form: 

1 PAYROLL 
2 NAME 
2 HOURS 

3 REGULAR 

3 OVERTIME 
2 RATE 

In the above example PAYROLL is defined 
as the major structure containing the sca- 
lar variables NAME and RATE and the struc- 
ture HOURS. The structure HOURS contains 
the scalar variables REGULAR and OVERTIME. 

2. DECLARE 1 A, 2 B, 2 C, 3 D ( 2) , 3 E, 2 
F; 



Arrays of Structures 



An array of structures is formed by 
giving the dimension attribute to a struc- 
ture. 



Examples: 

DECLARE 1 CARDIN(3), 2 
3 NORMAL, 3 OVERTIME; 



NAME, 2 WAGES, 



The decimal integers before the iden- 
tifiers specify the level. The name, 
CARDIN, represents an array of struc- 
tures. Because CARDIN has a dimension 
specified, NAME, NORMAL, and OVERTIME 
are arrays, and their elements are 
referred to by subscripted names. 

The form of the data is as follows: 



CARDIN 


(1) 


NAME 


(1) 










WAGES 


(1) 


NORMAL 
OVERTIME 


(1) 
(1) 


CARDIN 


(2) 


NAME 


(2) 










WAGES 


(2) 


NORMAL 
OVERTIME 


(2) 
(2) 


CARDIN 


(3) 


NAME 


(3) 










WAGES 


(3) 


NORMAL 
OVERTIME 


(3) 
(3) 
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2. DECLARE IX, 2 Y, 2 Z 
3 Q, 2 R; 



(2) , 3 P (2,2), 



X is an undimensioned major structure 
containing scalar variables, arrays, 
and a structure. 

Y is a scalar variable 

Z is an array of structures 

P is a three-dimensional array 

Q is a one-dimensional array 

R is a scalar variable 



SIMPLE NAMES 



A simple name is an identifier (see 
"Identifiers," in Chapter 1) that refers to 
a scalar, an array, or a structure. 



SUBSCRIPTED NAMES 



The form of the data is as follows : 



Z (1) 



Z (2) 



(1,1,1) 
(1,1,2) 
(1,2,1) 
(1,2,2) 



LQ CD 



P (2,1,1) 

P (2,1,2) 

P (2,2,1) 

P (2,2,2) 



LQ (2) 



Attributes of Structures 



A subscripted name is used to refer to 
an element or a cross section of an array. 
It is a simple name that has been declared 
to be the name of an array followed by a 
list of subscripts. The subscripts are 
separated by commas and are enclosed in 
parentheses. A subscript is an asterisk or 
a scalar expression that is evaluated and 
converted to an integer before use (see 
"Evaluation of Expressions," in Chapter 3). 
The number of subscripts must be equal to 
the number of dimensions of the array, and 
the value of a specified subscript must 
fall within the bounds declared for that 
dimension of the array. 

A subscripted name takes the form: 

identifier (subscript [ , subscript] 
...) 



Structures and arrays of structures are 
not given data attributes. These can be 
given only to structure base elements. 

Major structure names may be declared 
with the EXTERNAL attribute. Items con- 
tained in structures may not be declared 
with the EXTERNAL attribute, and even if 
INTERNAL is unspecified, they are assumed 
to be INTERNAL. 

All items in the same structure are of 
the same storage class, since only the 
major structure may be given a storage- 
class attribute. The storage class of the 
major structure applies to all elements of 
the structure. If a structure has either 
the CONTROLLED or the BASED attribute, only 
the major structure, not its elements , may 
be allocated and freed. 



NAMING 



This section describes the rules for 
referring to a particular data item, groups 
of items, arrays, and structures.. The 
permitted types of data names are simple, 
qualified, subscripted, and subscripted 
qualified- 



Examples: 

A (3) 

FIELD (B,C) 
PRODUCT (SCOPE * 
ALPHA (1,2,, 3,4) 
X(l,*,3) 



UNIT + VALUE, PERIOD) 



Cross Sections of Arrays 



The concept of cross sections is a 
logical extension of the subscripting nota- 
tion. A cross section of an array is 
referred to by the array name, followed by 
a list of subscripts, at least one of which 
is an asterisk. The subscripts are sepa- 
rated by commas, and the entire list is 
enclosed in parentheses. The number of 
items in the list must be equal to the 
number of dimensions of the array. If the 
array is of dimensionality n, then an 
asterisk may appear in k < n positions. If 
the jth list position is occupied by an 
asterisk, the cross section of the array 
includes elements covered by varying the 
jth subscript between its bounds. The 
dimensionality of the cross section is 
equal to the number of asterisks, k, in the 
subscript list. If all subscript positions 
are occupied by asterisks, then this ref- 
erence to the cross section is equivalent 
to a reference to the entire array. 
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A cross section may be used anywhere 
that. the name of an array of dimensionality 
k is required- Subsequent references to 
the word "array" in this document should 
therefore be taken to include cross sec- 
tions of arrays. 



Examples: 

A (3,*) denotes the third row 
array A. 



of the 



2. B {*, *, 2) is a two-dimensional cross 
section and denotes the second plane 
of the array B. 

3. If MATRIX is the array: 
12 3 

4 5 6 
7 8 9 
MATRIX (*, 2) represents the array: 

2 

5 

8 



A qualified name takes the form: 
identifier (. identifier} ... 
Examples: 

1. A program may contain the structures: 

DECLARE 1 CARDIN, 2 PARTNO, 2 DESCRIP- 
TION, 2 PRICE; 

DECLARE 1 CARDOUT, 2 PARTNO, 2 DES- 
CRIPTION, 2 PRICE; 

Elements are then referred to as : 

CARD IN. PARTNO 
CARDOUT. PARTNO 
CARDIN. PRICE 

2. A program may contain the structure: 

DECLARE 1 MARRIAGE, 2 MAN, 3 NAME, 3 
DATE, 2 WOMAN, 3 NAMF, 3 DATE; 

Elements are then referred to as: 



QUALIFIED NAMES 



A simple name usually refers uniquely to 
a scalar variable, an array, or a struc- 
ture. However, it is possible for a name 
to refer to more than one variable, array, 
or structure if the identically named items 
are themselves parts of different struc- 
tures. In order to avoid any ambiguity in 
referring to these similarly named items, 
it is necessary to create a unique name; 
this is done by forming a qualified name . 
This means that the name common to more 
than one item is preceded by the name of 
the structure in which it is contained. 
This, in turn, can be preceded by the name 
of its containing structure, and so on, 
until the qualified name refers uniquely to 
the required item. The section "Multiple 
Declarations and Ambiguous References" in 
Chapter U, contains further information on 
this subject. 



Thus, the qualified name 
of names specified left to 
of increasing level numbers; 
separated by periods, and 
placed as desired around the 
sequence of names need not 
the containing structures , 
include sufficient names 
ambiguity. Any of the names 
scripted. 



xs a sequence 

right in order 

the names are 

blanks may be 

periods. The 

include all of 

but it must 

to resolve any 

may be sub- 



The qualified name, once composed, is 
itself a name. Subsequently, in this pub- 
lication, when the terms scalar variable 
name, array name, or structure name are 
used they should also be taken to include 
qualified names. 



MAN. NAME 

or MARRIAGE. MAN. NAME 

WOMAN. NAME 

or MARRIAGE. WOMAN. NAME 

3. If the same program also contains the 
structure : 

DECLARE 1 BIRTH, 2 WOMAN, 3 NAME, 
3 DATE, 2 ADDRESS; 

Elements are then referred to as: 

MAN. NAME 

or MARRIAGE. MAN. NAME 

MARRIAGE . WOMAN. NAME 

BIRTH. NAME 

or BIRTH. WOMAN. NAME 

ADDRESS 

and the minor structures referred to 
as: 

MARRIAGE . WOMAN 

BIRTH . WOMAN 



SUBSCRIPTED QUALIFIED NAMES 



The elements of an array contained in a 
structure and requiring name qualification 
for identification are referred to by sub- 
scripted qualified names . A subscripted 
qualified name is a sequence of names and 
subscripted names separated by periods. 
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The order of names is as given for any 
qualified name. The subscript list follow- 
ing each name refers to the dimensions 
associated with the name if the name is 
declared to be the name of an array in the 
structure description. 

As long as the order of the subscripts 
remains unchanged , subscripts may be moved 
to the right or left and attached to names 
at a lower or higher level, respectively. 
The number of subscripts, if any are speci- 
fied, must match the number of dimensions 
of the array. A subscripted qualified name 
takes the general form: 

identifier [ (subscript [, subscript] 
...)] 
{.. identifier [(subscript [, sub- 
script] . . . ) ] } . . . 

If any subscripts are given in a ref- 
erence to a qualified name, all those 
subscripts which apply to dimensions of 
containing structures must be given. 

Example 1 : 

A is an array of structures with the 
following description: 

DECLARE 1 A (10,12), 2 B (5), 3 C (7), 
3 D; 

The following subscripted qualified 
names refer to the same element, which is 
the seventh element of C contained in the 
fifth element of B contained in tenth row 
and twelfth column of A: 

(1) A (10,12) . B (5) . C (7) 

(2) A (10) . B (12,5) . C (7) 

(3) A (10) . B (12) . C (5,7) 

(4) A . B (10,12, 5) . C C7) 

(5) A . B (10,12) . C (5,7) 

(6) A . B (10) . C (12,5,7) 

(7) A . B . C (10,12,5,7) 

(8) A (10,12) . B . C (5,7) 

(9) A (10) . B . C (12,5,7) 



(10) A (10,12,5,7) 



B . 



If structure B, but not structure A, is 
necessary for unique identification of this 
use of C, any of forms (4), (5), (6), or 
(7) may be used without including the A. 

If structure A, but not B, is necessary 

for identification of C, forms (7), (8), 

(9), or (10) may be used without including 
the B. 

Example 2 : 

If FIELD is the array of structures: 

DECLARE 1 FIELD (3) , 
2 STATUS, 
2 VALUE; 



then FIELD (*) .STATUS represents 
array: 

FIELD (1) .STATUS 
FIELD (2) .STATUS 
FIELD (3) .STATUS 



the 



DATA TYPES 



The types of data allowed by PL/I can be 
categorized as problem data and proqram- 
control data. 



PROBLEM DATA 



Problem data is any data that can be 
classified as type arithmetic or type 
string. 



Arithmetic Data 



An arithmetic data item is one that has 
a numeric value with characteristics of 
base, scale, mode, and precision. The data 
item may be represented either as a numeric 
field or in a coded form, that is, in an 
internal representation that is implementa- 
tion dependent. A numeric field is a 
string of characters or bits that is given 
a numeric interpretation by means of the 
PICTURE attribute (see Chapter 4) . s The 
base, scale, and precision are all speci- 
fied in the picture of the numeric field. 
A data item in coded form does not have a 
PICTURE attribute, but has its charac- 
teristics given by the attributes speci- 
fying base, scale, mode, and precision. An 
arithmetic constant is of coded form. 

Base (decimal or binary), scale 
(fixed-point or floating-point), and 
precision have reference to internal rep- 
resentation of the data described and to 
the internal arithmetic that is to be used. 

BASE: Arithmetic data may be specified as 
having either decimal or binary base . 

SCALE : Arithmetic data may be specified as 
having either fixed-point or floating-point 
scale . Fixed-point data items are rational 
numbers for which the number of decimal or 
binary digits is specified; the position of 
the decimal or binary point may also be 
specified by a scale factor. Floating- 
point data items are rational numbers in 
the form of a fractional part and an 
exponent part. 
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MODE; Arithmetic data may be operated on 
in either the real or complex mode . In the 
complex mode, a data item is considered to 
consist of a number pair,, the first member 
of the pair representing the real part of 
the complex number and the second, the 
imaginary part. 



PRECISION; The precision of fixed-point 
data (p„q) is specified by giving the total 
number of binary or decimal digits, p_, to 
be maintained and a scale factor, 3. The 
precision of floating-point data is 
specified by giving the effective number, 
p, of binary or decimal digits to be 
maintained in the fractional part (for an 
implementation, the actual number of digits 
maintained internally may be greater than 
p_) . Note that p must be greater than zero. 



Real Arithmetic Constants 

A real arithmetic constant is either 



binary or decimal. 



DECIMAL FI XED -POINT CONSTANTS; A decimal 
fixed-point constant is represented by one 
or more decimal digits with an optional 
decimal point. If a decimal point is not 
specified, the constant is a decimal inte- 
ger co n stant . 

Examples: 

72.192 
.308 
255. 
158 



a decimal point 

a pence field that is one or more 
decimal digits with an optional 
decimal point (the integral part 
must be less than 12.) 

an L 

Examples: 

101.13. 8L 
1.10. 0L 
0.0.2.5L 



DECIMAL FLOATING-POINT CONSTANTS: A deci- 
mal floating-point constant is represented 
by one or more decimal digits with an 
optional decimal point, followed by the 
letter E, followed by an optionally signed 
exponent. The exponent is one or more 
decimal digits specifying an integral power 
of ten. 

Examples: 

12.E23 

317.5E-16 

0.1E+3 

.U2E+73 

32E-5 



BINARY FLOATING-POINT CONSTANTS: 



binary 

floating-point constant is represented by 
one or more binary digits with an optional 
binary point, followed by the letter E, 
followed by an optionally signed exponent, 
followed by the letter B. The exponent is 
one or more decimal digits specifying an 
integral power of two. 

Examples: 



BINARY FIXED- POINT CONSTANTS: A binary 
fixed-point constant is represented by one 
or more binary digits with an optional 
binary point followed by the letter B. 

Examples : 

10. B 
11011B 
11.1101B 
.001B 



STERLING FIX ED- POINT CONSTANTS; Sterling 
quantities may be specified and will be 
interpreted as decimal fixed-point pence. 
A sterling fixed-point constant consists of 
the following concatenated fields: 

a pounds field that is a decimal inte- 
ger 

a decimal point 

a shillings field is one or more deci- 
mal digits that represent a decimal 
integer less than 20 



1.1011E3B 
.11011E-27B 



PRECISION OF REAL ARITHMETIC CONSTANTS: 
For purposes of expression evaluation, an 
apparent precision is defined for real 
arithmetic constants. 

Real fixed-point constants have a preci- 
sion (p#q) where p_ is the total number of 
digits in the constant and g_ is the number 
of digits specified to the right of the 
decimal point. 

The precision of a sterling constant is 
equivalent to the precision of its corres- 
ponding value in fixed-point pence. This 
value is determined as follows: multiply 
the value of the pounds field by 240; add 
the product of 12 and the value of the 
shillings field; add the value of the pence 
field. The precision of the result (with 
leading zeros removed) is the precision of 
the corresponding sterling constant. 



26 



The precision of a floating-point con- 
stant is (p) where 2 is the number of 
digits of the constant left of the E. 

Examples : 

3.14 has precision (3,2) 
0.012E5 has precision (4) 
0.9.0,. 5L has precision (4,1) 
0000001B has precision (7,0) 

Imaginary Arithmetic Constants 

An imag inary constan t represents a com- 
plex value of which the real part is zero 
and the imaginary part is the value speci- 
fied. 

It is represented by a real arithmetic 
constant, other than a sterling constant, 
followed by the letter I. PL/I does not 
define complex constants with non-zero real 
parts, but provides the facility to specify 
such data through an expression, e.g. , 
10.1+9.21. 

Examples: 

271 
3.968E10I 

Arithmetic Variables 

Arithmetic variables are names of arith- 
metic datci items. These names have been 
given the characteristics (i.e., 
attributes) of base, scale, mode, and pre- 
cision (see Chapter 4). 



String Dat a 



String data can be classified as 
character- string or bit- string . The length 
of a string data item is equivalent to the 
number of characters (for a charac- 
ter-string) or the number of binary digits 
(for a bit-string) in the item. A string 
data item of length zero is known as a null 
string . 



Character-String Data 

Charact er-string data 



consists of a 

characters in the 

"Data Character 

string may be 

The actual 



string of zero or more 

data character set (see 

Set, " in Chapter 1) . The 

fixed or varying in length. 

number of characters must be specified if 

it is of fixed length, and the maximum 

length must be specified if it is of 

varying length. 

CHARACTER- ST RING CONSTANTS; A character- 
string constant is zero or more characters 
in the data character set enclosed in 



quotation marks. If it is desired to 
represent a quotation mark, it must appear 
as two immediately adjacent quotation 
marks. The constant may optionally be 
preceded by a decimal-integer constant in 
parentheses to specify repetition. If the 
constant specifying repetition is zero, the 
result is the null character string. 

In a string repetition factor, blanks 
may optionally surround the decimal integer 
constant, or they may separate the right 
parenthesis and leading quote. 

A character string constant may contain 
a string of characters which syntactically 
constitute a comment; however, these 
characters are treated as part of the 
string value rather than as a comment. 

Examples: 

•$ 123.45* 
•JOHN JONES' 
■ IT' 'S' 
(3) 'TOM' 



The fourth is exactly equivalent to 

■TOMTOMTOM' 

The last example, which is two single 
quotation marks with no intervening blank, 
specifies the null character string. 

Bit-String Data 

Bit-string data consists of a string of 
zero or more binary digits (0 and 1). The 
string may be fixed or varying in length. 
The actual length of the field must be 
specified if it is of fixed length, and the 
maximum length must be specified if it is 
of varying length. 



BIT- STRING CONSTANTS : 



stant 



xs 



zero or 



A bit-string 
more 



con- 



binary digits 
enclosed in quotation marks, followed by 
the letter B. The constant may optionally 
be preceded by a decimal-integer constant 
in parentheses, to specify repetition. If 
the constant specifying repetition is zero, 
the result is the null bit string. 

Examples: 

•0100'B 
(10) 'l'B 

'•B 

The second is exactly equivalent to 

•llllllllll'B 

The last example specifies the null bit 
string. 
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String Variables 



Example: 



String variables are names of string 
data items. These names have been given 
string attributes. 



DECLARE X LABEL; 
X = POSROUTINE; 



POSROUTINE : 



X = NEGROUTINE; 
GO TO X; 



NEGROUTINE : 



PROGRAM- CONTROL DATA 



Program- control data is any data that 
can be classified as type label, task, 
event, pointer, area, or cell. 



The label variable X may have the value 
of either POSROUTINE or NEGROUTINE, both 
labels in the procedure. In the above 
example, GO TO X transfers control to 

NEGROUTINE. 

A statement- label constant or a scalar 
label variable is called a statement- label 
designator . 



Label Data 



Task Data 



Statement-label data is used only in 
connection with statement labels. State- 
ment label data may be constants or varia- 
bles , and the variables may be elements of 
structures or arrays. 



Statement-Label Constants 



A statement- label constant is an iden- 
tifier that appears in the program as a 
statement label. It permits references to 
be made to statements. 



A task variable is the name of a task 
(see "Asynchronous Operations and Tasks" in 
Chapter 6, and "The TASK Attribute" in 
Chapter 4). A task variable may be an 
element of an array or of a structure. The 
priority associated with a task variable 
may be assigned in the CALL statement, or 
in an assignment statement via the PRIORITY 
pseu do- variable (see Chapter 8). 



Event Data 



Example: 



R0UTINE1: IF X > 5 THEN GO TO EXIT; 



GO TO ROUTINE 1; 



EXIT: RETURN; 



ROUTINE1 and EXIT are statement- label 
constants. 

Statement- Label Variables 

A statement- label variable is a variable 
that has as values statement-label con- 
stants,. These variables can be grouped 
into arrays or structures. 



An event variable is the name of an 
event used in connection with asynchronous 
processing, in multitasking, the DISPLAY 
statement, or with record-oriented I/O 
operations . An event variable may be an 
element of an array or of a structure. 

An event variable has associated comple- 
tion and status values that can be accessed 
by the COMPLETION and STATUS built-in func- 
tions (see "The EVENT Attribute" in Chapter 
4) . 



Locator Data 



Locator data consists of pointer varia- 
bles and offset variables. A pointer vari- 
able has a value that is used to identify 
the location of a single generation of a 
variable. An offset variable has a value 
that is used to identify the location of a 
based variable relative to the beginning of 
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an area. (See 
Chapter 4.) 



"OFFSET and POINTER" in 



Locator Qualification 



to by P. The second example specifies that 
the value of P is to be used to locate the 
generation of Q which locates the specific 
generation of B to be assigned to A. In 
the third example, the generation of B is 
derived from the location of the variable 
X. 



Locator qualification is used to asso- 
ciate one or more pointer or offset values 
with a based variable to identify a parti- 
cular generation of data. If a based 
variable is referred to without a locator 
qualifier, the reference is the same as a 
reference qualified by the locator variable 
declared with the based variable in the 
BASED attribute specification. 

The format of a locator qualifier is as 
follows : 

scalar-locator-expression -> 
[based- locator-variable ->] . . . 
based- variable 

where "scalar-locator-expression" is a 
pointer- variable, an off set- variable, or a 
function reference that returns a pointer 
or offset value. 

General rules: 

1. Locator qualification is used to indi- 
cate the generation of a based varia- 
ble to which the associated reference 
applies. 

2. If an offset expression or an offset 
variable is used as a locator qualifi- 
er, its value is implicitly converted 
to a pointer value. 

3. More than one locator qualifier can be 
specified in a reference. Only the 
first (or leftmost) can be a function 
reference; all other locator qualifi- 
ers must themselves be based varia- 
bles. 

4. If more than one qualifier is used, 
they are read from left to right. 

Examples: 

A = P->B; 

A = P->Q->B; 

A = ADDR(X)->B; 

The first example causes assignment to A 
of the value of B in the generation pointed 



Area Data 



An area variable represents an area of 
storage in which based variables may be 
allocated and freed. 



Cell Data 



A cell is a unit of storage that may be 
used to hold values of different data 
types. However, only the value of the most 
recently assigned data type can be 
accessed. 

Cells are organized in the same way that 
structures are organized; the name of the 
cell must be at a higher level than its 
alternatives. For example, the following 
statement specifies that the storage allo- 
cated for the cell named ALPHA may contain 
either of the two alternatives, ALTl (a bit 
string) or ALT2 (a structure), but not both 
at the same time. 



DECLARE 1 



A cell 
not data 
since only 
one time, 
cannot be 
another a 
value to 
previously 
strips it 



ALPHA CELL, 

2 ALTl BIT (60) , 

2 ALT2, 

3 BETA FLOAT, 
3 GAMMA FIXED; 



provides storage equivalence and 

equivalence. In other words, 

one alternative can be active at 

the value of that alternative 

retrieved by a reference to 

lternative. The assignment of a 

an alternative deactivates the 

active alternative and in effect 

of its value. 



Thus, the value of an alternative can 
only be retrieved by a reference to that 
alternative. The cell name may be used to 
qualify the reference but a reference to 
the cell name alone will retrieve no value. 



Chapter 2: Data Elements 
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CHAPTER 3: DATA MANIPULATION 



EXPRESSIONS 



An expression is an algorithm used for 
computing a value. Expressions are of the 
three types: scalar, array, and structure, 
depending upon the type of the result. An 
array (or structure) expression is simply 
an array (or structure) evaluated by expan- 
sion of the expression into a collection of 
scalar- expressions. Syntactically, a sca- 
lar expression consists of a constant, a 
scalar variable, a scalar expression 
enclosed in parentheses, a scalar expres- 
sion preceded by a prefix operator, two 
scalar expressions connected by an infix 
operator, or a function reference that 
returns a scalar value. (Note that any 
programmer-written function returns a sca- 
lar value, but some built-in functions may 
return array or structure values.) Oper- 
ands in a scalar expression need not have 
the same data attributes. If they differ, 
conversion will be performed before the 
operation. 



SCALAR EXPRESSIONS 



A scalar expression returns a scalar 
value. The class of the expression is 
dependent upon the operators -- arithmetic, 
comparison, bit string, and concatenation. 
In the case of program control data, the 
operands determine the class of expression. 
Only the operators = and n = may appear with 
pointer and offset. No operators may 
appear with label, cell, area, event, and 
task data. 



If A and B are expressions, then the 
operators + and - used in expressions of 
the form +A or -A, are called prefix 
operators. When these operators are used 
in expressions of the form A+B or A-B they 
are called infix operators. 



An elementary arithmetic operation has 
the following general format: 

£{+|-} operand} | {operand 
{+| - | * | / | **} operand) 



The general format speci 
operations of plus and minus 
operations of addition, subt 
plication, division, and 
Operations are performed on 
arithmetic data. If nece 
will be converted to coded a 
before the operation is perf 



fies the prefix 
and the infix 
raction, multi- 
exponentiation, 
ly with coded 
ssary, the data 
rithmetic type 
ormed. 



Mixed Characteristics 

The two operands of an arithmetic opera- 
tion may differ in form, base, scale, mode, 
and precision. When they differ (except in 
some cases of exponentiation) , conversion 
takes place according to the following 
rules : 

FORM: Numeric field operands of arithmetic 
operations will be converted to coded form. 
The result of an arithmetic operation is 
always in coded form. 

BASE: If bases differ, the decimal operand 
is converted to binary. 

SCALE : If the scales of the operands 
differ, the fixed-point operand will be 
converted to floating-point, except in the 
case of exponentiation in which the first 
operand is floating-point and the second is 
fixed-point with precision (p,0). In the 
latter case, the second operand is not 
converted, and the result has the base, 
scale, mode, and precision of the first 
operand. 

MODE: If the modes differ, the real oper- 
and is converted to complex mode (by 
acquiring an imaginary part of zero with 
the same base, scale, and precision as the 
real part) . However, when the operation is 
exponentiation and the second operand is 
fixed-point with precision (p,0) , then the 
second operand is not converted. 

PRECISION: If precisions differ, no con- 
version is done. 



Arithmetic Operations 



An arithmetic expression of any complex- 
ity is composed of a set of elementary 
arithmetic operations. 



Results of Arithmetic Operations 

After the conversions specified above 
have taken place, the arithmetic operation 
is performed. Any necessary truncations 
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will be made towards zero, regardless of 
the base or scale of the operands. 



The base,, scale, mode, and precision of 
the result depend on the operands and the 
operator in the following ways: 

1* Prefix operations: The prefix opera- 
tions of plus and minus yield a result 
having the base, scale, mode, and 
precision of the operand. 

2. Floating-point: If the operands of 
an infix operation are floating-point 
the result is floating-point, and the 
base cind mode of the result are the 
common base and mode of the operands. 
The precision of the result is the 
greater of the precisions of the two 
operands . 

3. Fixed-point: If the operands of an 
infix operation are fixed, and if the 
operation is not exponentiation, the 
result is fixed, and the base and mode 
of the result are the common base and 
mode of the operands. If the opera- 
tion is exponentiation, the second 
operand is converted to floating point 
if its scale factor is not zero; and 
the first operand is converted to 
floating-point unless the second oper- 
and is an unsigned integer constant 
meeting the conditions of item d 
below; in these cases, the rules for 
floating-point apply. 

The precision of a fixed-point 
result depends on the operation and 
the precisions of the operands, 
according to rules given below. The 
following symbols are used: 



N 



the maximum precision allowed by 

the implementation for the base 

of the result 
the total number of positions in 

the result 
the scale factor of the result 
the total number of positions in 

operand one 
the scale factor of operand one 
the total number of positions in 

operand two 
the scale factor of operand two 
value of operand two, if it is an 

unsigned integer constant 



a. Addition and subtraction: 

m == min(N,max(p-q, r-s) +max (q, s) +1) 
n = max(q,s) 

b. Multiplication: 

m = : min(N,p+r+l) 

n == q+s 



c. Division: 



m = N 

n = N-p+q-s 



d. Exponentiation: if the second 
operand is an unsigned non-zero 
real fixed-point constant of pre- 
cision (r,0) , 

m = (p+1) *y - 1 
n = q *y 

If m>N, however, or y is not an 
unsigned non-zero real fixed-point 
constant of precision (r,0) , the 
first operand is converted to 
floating-point and rules for 
floating-point exponentiation 
apply. 

e. The above rules hold for both real 
and complex mode. 



Note: Some special cases of exponentiation 
are defined as follows: 

1. Real Mode, x ± **x 2 : 

a. If x ± =0 and x 2 >0, the result is 0. 

b. If x ± =0 and x 2 <0, the ERROR condi- 
tion is raised. 

c. If Xi*0 and x 2 =0, the result is 1. 

d. If Xa.<0 and x 2 is not fixed-point 
with precision (p,0), the ERROR 
condition is raised. 

2. Complex Mode, z x **z z 

a. If Zi=0 and z 2 has its real part 
>0 and its imaginary part equal to 
0, the result is 0. 

b. If z ± =0 and the real part of z 2 is 
not greater than or the imag- 
inary part of z 2 is not equal to 
0, the FRROR condition is raised. 

Arithmetic Conversions 

1. Arithmetic Mode Conversion 

If a complex value is converted to 
a real value, the result is the real 
part of the complex value. 

If a real value is converted to a 
complex value, the result is a complex 
value that has the real value as the 
real part and zero as the imaginary 
part. 
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Table 1. Arithmetic Base and Scale Conversion 

Before Conversion 



After J Binary Fixed J Decimal | Binary | Decimal 
| (p#q) I Fixed (p,q) | Float (p) | Float (p) 

Binary j (p,q> 1 (MIN(CEIL(p*3. 32) j j 

Fixed | | +l,N :L ),CEIL(ABS(q) j j 

j | *3.32)*SIGN(q)) | | 

_i _ _ ± — — 4- J- — 


-+ T T t 

Decimal| (MIN(CEIL(p/3.32)+l,N a ) j (p,q> j j 
Fixed j CEIL(ABS(q)/3.32) | | | 
j + SIGN (q)) | j | 
_ ._ i_ _ _ _ j. _ _i _ _ _. i _ _ 


Binary | (MIN(p r N 3 )) | (MINCCEIL | (p) | (MIN(CEIL 
Float j | (d*3.32) ,N 3 )) j | (p*3.32) ,N 3 )) 
+ + + + 

Decimal| (MIN(CEIL(p/3.32) ,N,») j (MIN(p r N 4 )) | (MIN(CEIL j (p) 
Float | | | (p/3.32) ,N<,)) | 



L J. X J. 



J. J 



N-l is the maximum precision allowed for binary fixed-point data. 
N 2 is the maximum precision allowed for decimal fixed-point data. 
N 3 is the maximum precision allowed for binary floating-point data. 
N u is the maximum precision allowed for decimal floating-point data. 



2. Integer conversion 

If conversion to integer is speci- 
fied, as in the evaluation of sub- 
script expressions, the conversion 
will be to fixed-point binary (x f 0). 
Here x is the total number of posi- 
tions in the field and depends upon 
the implementation. The scale factor 
is zero. Truncation, if necessary, 
will be toward zero. 



Bit-String Operations 



Bit-string operations have the following 
general forms: 



operand 

operand 6 operand 

operand | operand 



3. Arithmetic Base and Scale Conversion 



Table 1 defines the precision 
resulting from base and scale conver- 
sion. CEIL refers to the ceiling of 
the expression. (The "ceiling" of a 
number is the smallest integer equal 
to or greater than the number. ) 



Floating-point to Fixed-point 
sion 



Conver- 



Conversion from floating-point 
scale to fixed-point scale will occur 
only when a destination precision is 
known, as in an assignment to a fixed- 
point variable. If the destination 
precision is incapable of holding the 
floating point value, the result is 
undefined and the SIZE condition will 
be raised, if enabled. 



The prefix operation "not" and the infix 
operations "and" and "or" are specified 
above- The operands will be converted to 
bit-string type before the operation is 
performed. The result will be of bit- 
string type. If the operands are of 
different lengths after conversion, the 
shorter is extended on the right with zeros 
to the length of the longer. The length of 
the result will be of this extended length. 
The result is of varying length if either 
operand has the VARYING attribute. 



The operations are performed on a bit- 
by-bit basis. As a result of the 
operations, each bit position has the value 
defined in the following table: 
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r T T T T T 1 

I I I ! | A ! A | 

| | | not | not | and | or | 
|A|B|A|B|B|BI 
J. X X X X X ;, 

|1|1|0|0|1|1| 

|1|0|0|1|0|1| 
|. X X + X + ) 

|0|1|1|0|0|1| 
|0|0|1|1|0|0| 

L ; X X X X X J 

Examples : 

If field A is 'OlOlll'B, field B is 
■ 111111' B, and field C is '101'B, then 

t A yields '101000'B 

C 8 B yields '101000'B 

A | -, C yields 'OlOlll'B 

-, (-|ChB) yields '1 01111' B 

For a discussion of how these expres- 
sions are evaluated, see "Evaluation of 
Expressions," in this chapter. 



type is converted to conform with the 
representation of the operand of the higher 
type. The priority of types is (1) arith- 
metic (highest), (2) character string, (3) 
bit string. If one or both of the operands 
is arithmetic, the operands are converted 
to the same attributes as those defined for 
arithmetic operations. 



As a result of the conversion, both 
operands will then be arithmetic or charac- 
ter string, and arithmetic or character 
comparison will be performed. 

Only the operations = and n = can be user! 
if either operand is complex. 

Only the operators = and i= may be used 
with locator variables, and both operands 
must be locator variables or a function 
that returns a locator value. 



Concatenation Operations 



Comparison Operations 



Comparison operations have the general 
form: 

operand t<h<|<=| = h = |>=|>h» operand 

There are three types of comparisons: 

1. Arithmetic , which involves the compar- 
ison of signed numeric values in coded 
arithmetic form. Conversion of numer- 
ic fields will be performed. 

2« Character , which involves left-to- 
right, pair- by- pair comparisons of 
characters according to the 
implementation-defined collating 
sequence- If the operands are of 
different lengths, the shorter is 
extended to the right with blanks. 

3. Bit, which involves the left- to-right 
comparison of binary digits. If the 
strings are of different lengths, the 
shorter is extended on the right with 
zeros. 

The result of a comparison is a bit 

string of length one; the value is 'l'B if 

the relationship is true or *0'B if it is 
false. 

Comparison operations always take place 
between values in common representation. 
If the operands of a comparison are of 
different types, the operand of the lower 



Concatenation operations have the fol- 
lowing general form: 

operandi | operand 

If both operands are of bit-string type, 
no conversion is performed, and the result 
is of bit type. In all other cases, the 
operands are converter! where necessary to 
character- string type before the concatena- 
tion is performed, and the result is of 
character type. The length of the result 
is the sum of the lengths of the two 
operands. The result is a varying string 
if either of the operands has the VARYING 
attribute. 



Examples: 

If A is 'OlOlll'B, B is '101'B, C is 
•XY,Z' and D is 'AA/BB', then 



A||B yields 'OlOllllOl'B 

A| |A| |B yields ' 010111010111101'B 

C||D yields 'XY,ZAA/BB' 

D| |C yields 'AA/BBXY,Z' 



Type Conversion 



Bit String to Character String 

The bit 1 becomes the character 1, and 
the bit , the character 0. The length is 
unchanged. The null bit string becomes the 
null character string- 



Chapter 3: Data Manipulation 33 



Character String to Bit String 

The characters 1 and become the bits 1 
and 0. The conversion condition will be 
raised if the character string contains 
characters other than and 1 in the 
portion of the string to be converted. The 
null character string becomes the null bit 
string. 



BINARY FIXED (r,s) p = min ( (N ± , max (r-s, ) ) 
DECIMAL FIXED (r,s) p = min (N 2 , max (CEIL 

( (r-s)*3. 32) ,0)) 
BINARY FLOAT (r) o = min(N 3 ,r) 
DECIMAL FLOAT (r) c = min(N , CEIL 

(r*3.32)) 



The resulting binary fixed-point value 
is interpreted as a bit string of lenath p. 



Character String to Arithmetic 



The string for conversion must contain 
one of the following: 



The result of a conversion to fixed- 
point binary with precision (0,0) is the 
null bit string. 



1. [+I-] arithmetic- constant 



2. [+|-] real constant {+|-> imaginary- 
constant 



The optionally signed constant or 
complex expression may be surrounded by an 
arbitrary number of blanks. However, 
blanks may not appear between the optional 
sign and the constant, nor may they precede 
the central sign in a complex expression. 
The string must not contain a sterling 
constant. 

The arithmetic value of the constant is 
converted to the base, scale, mode, and 
precision that a REAL FIXED DECIMAL value 
of maximum fixed decimal precision would 
have been converted to if this had appeared 
in place of the character string value. A 
null string gives the value zero. 

Bit String to Arithmetic 

The bit string is interpreted as an 
unsigned binary integer, and is converted 
to the base, scale, mode, and precision 
that a real fixed binary value of maximum 
fixed binary precision would have been 
converted to had it appeared. A null 
string gives the value 0. 

Arithmetic to Character String 



AGGREGATE EXPRESSIONS 



An aggregate expression is an expression 
involving one or more aggregate operands, 
i.e. array or structure operands. An 
aggregate expression is either an array 
expression or a structure expression. For 
convenience, array expressions are 
classified into simple array expressions, 
whose operands are not structures or arrays 
of structures, and array of structure 
expressions. See "The Assignment State- 
ment," in Chapter 8. 



Prefix Operators and Aggregate Operands 



A prefix operator applied to an aggre- 
gate yields a result whose aggregate type 
is the same as the operand. Thus if A is 
an array and B is a structure -A is an 
array expression and -B is a structure 
expression. The bounds and number of 
dimensions of an array expression are those 
of the operand. 



The arithmetic value is converted to a 
character string according to the rules of 
list-directed output specified in Chapter 
7. 



Infix Operators and Aggregate Operands 



Arithmetic to Bit String 

The absolute arithmetic value is con- 
verted to real then to fixed-point binary, 
precision (p,0), where p is related to the 
precision before conversion as follows 
(with ceilings of expressions used) : 



An infix operator applied to two aggre- 
gate operands, or to an aggregate operand 
and a scalar, yields a result whose aggre- 
gate type is determined by the operands. 
The following table gives the aggregate 
type of the result of an infix operation in 
terms of the aggregate type of the oper- 
ands: 
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r t 

Operand 1 



Operand 2 



scalar 



-T - T T 

j simple array | structure | array of structures 



scalar 



scalar 



simple 
array 



structure 



array of 
structures 



simple 
array 



simple 
array 



simple 
array 



array of 
structures 



array of 
structures 



structure 



structure 



array of 
structures 



structure 



a rray of 
structures 



array of 
structures 



array of 
structures 



array of 
structures 



array of 
structures 



array of 
structures 



If both operands are arrays they must have 
the same bounds and number of dimensions; 
the result has these common bounds and 
number of dimensions. If only one operand 
is an array the result has the bounds and 
number of dimensions of this array- When 
structures are involved, they must all have 
the same structuring. 



Buil t-in Fun ctions with Aggregate 
Argument s 



The built-in functions listed under 
"Arithmetic Built-in Functions," 
"Mathematical Built-in Functions," and 
"String Built-in Functions" in Appendix 1 
may be given aggregate expressions in argu- 
ment positions other than those which must 
be integer constants. The aggregate type 
of the result, its bounds and number of 
dimensions, with n argument positions other 
than integer constant ones can be obtained 
by treating the reference as an expression 
involving these n operands and (n-1) infix 
operators. 

For example, if A is a structure, B is a 
simple array and C is a scalar. 

SIN (A) is a structure expression 
MAX(B,C) is an array expression 
MIN(A, B) is an array of structures 
expression 



Value of an Aggregate Expre s sion 



assigned to one or more aggregate target 
variables. Such an assignment is carried 
out as a seguence of scalar assignments 
(see "The Assignment Statement," in Chapter 
8) . The definition has two major conse- 
quences: 



1. 



2. 



Array expressions may 
results of conventional 
bra. 



not yield the 
matrix alge- 



When a variable, or part thereof, is 
specified both as an operand and as a 
target, the values of the variable 
when used in the expression may be 
those assigned earlier in the sequence 
of scalar assignments. 



In other cases no named target variable 
is available. When passing arguments a 
dummy variable (the dummy argument) is 
constructed. The aggregate type of the 
dummy argument is that specified in the 
corresponding parameter position of an 
entry attribute, or if this information is 
not specified in an entry attribute then 
the aggregate type is that of the expres- 
sion itself. The values transmitted to the 
parameter are determined by assignment of 
the expression to the dummy argument. The 
values transmitted by an aggregate expres- 
sion in an output data list are those which 
would be assigned to a target variable 
having the aggregate type of the expres- 
sion. 



Aggregate expressions can be used only 
on the right hand side of an assignment 
statement, as arguments, and in a data list 
of a PUT statement. 



EVALUATION OF EXPRESSIONS 



In an assignment statement the values 
designated by an aggregate expression are 



In the evaluation of an expression, the 
priority of operations is as follows. 
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Highest: -\,** t prefix + , prefix - 

*r / 

infix + , infix - 
M 

8 

Lowest : | 

Operations within an expression are per- 
formed in the order of decreasing priority. 
For example, in the expression A+B**3, 
exponentiation is performed before addi- 
tion. If an expression involves operations 
of the same priority, the operations -, , **, 
prefix + f and prefix - are performed from 
right to left and all other operations are 
performed from left to right. 

If an expression is enclosed in paren- 
theses, it is treated as a single operand. 
The parenthesized expression is evaluated 
before its associated operation is per- 
formed. For example, in the expression 
(A+B**3)/(C*D| |E) , A will be added to B**3, 
C*D will be concatenated with E, and then 
the first of these results will be divided 
by the second. 

Thus, parentheses modify the normal 
rules of priority. 

An implementation may cause evaluation 
of subscripts, function references, and 
locator qualifiers in any order that it 
chooses. This is subject only to the 
constraint that an operand must be fully 
evaluated before its value is used in an 
operation. 



The operators + and * are commutative, 
but not associative, as low-order rounding 
errors will depend on the order of evalua- 
tion of an expression. Thus, A+B+C is not 
necessarily equal to A+(B+C). 

The rules relating to irreducible func- 
tions and abnormal data should be noted 
(see "Abnormality and Irreducibility, " in 
Chapter 10). 



ORDER OF THE EVALUATION OF AGGREGATE 
EXPRESSIONS 



Array expressions are evaluated by per- 
forming, in turn, a complete scalar evalua- 
tion of the expression for each position of 
the array. The evaluations proceed in 
row-major order (final subscript varying 
most rapidly) . The result of an evaluation 
for an earlier position can alter the 
values of scalar elements for the evalua- 
tion of a later position (see Example 1, 
for "The Assignment Statement," in Chapter 
8). 

Structure expressions are evaluated by 
performing a complete scalar evaluation of 
the expression for each eligible field, in 
the order in which the fields in the 
structures are declared. The results of an 
evaluation for an earlier position can 
alter the result for the evaluation of a 
later position. 



36 



CHAPTER U: DATA DESCRIPTION 



An identifier appearing in a PL/I pro- 
gram may refer to one of many classes of 
objects. For example, it may represent a 
variable referring to a complex number 
expressed in fixed-point scale with decimal 
base; it may refer to a file; it may 
represent a variable referring to a charac- 
ter string; it may represent a statement 
label or represent a variable referring to 
a statement label; it may be a variable 
referring to a pointer or area, etc. 



The recognition of an identifier as a 
particular name is established through dec- 
laration of the name. 



Those properties that characterize the 
object represented by the name, and the 
scope of the name itself, together make up 
the set of attributes that are to be 
associated with the name- 



There are a number of classes of attri- 
butes. These classes and the attributes in 
each class are described further on in this 
chapter. 



DECLARATIONS 



A given identifier is established as a 
name, which holds throughout a certain 
scope in the program (see "Scope of 
Declarations" in this chapter) , and a set 
of attributes may be associated with the 
name by means of a declaration . 

If a declaration is internal to a cer- 
tain block, then the name is said to be 
declared in that block . 

In a program, a given identifier may be 
established in different parts of the pro- 
gram as different names. For example, an 
identifier may represent an arithmetic 
variable in one part of a program and an 
entry name in another part. These two 
parts, of course, cannot overlap. 

Each different use of the identifier is 
established by a different declaration. 
References to different uses are distingu- 
ished by the rules of scope (see "Scope of 
Declarations" ) . 

Declarations may be explicit , contex- 
tual , or implicit . 



When an identifier is used in a given 
context in a program, attributes from cer- 
tain of these attribute-classes must be 
known in order to assign a unique meaning 
to the identifier. For example, if an 
identifier is used as a data variable, the 
data type must be known; if the data type 
is arithmetic, the base, scale, mode, and 
precision must be known. 



Examples of Attributes: 

CHARACTER (50) — Association of this attri- 
b\ite with an identifier defines the 
identifier as representing a variable 
referring to a string 5 characters in 
length. 



EXPLICIT DECLARATIONS 



Explicit declarations are made through 
use of the DECLARE statement, label prefix- 
es, and specification in a parameter list; 
by this means, an identifier is established 
as a name and can be given a certain set. of 
attributes . 

Only one DECLARE statement can be used 
to establish an internal name. However, 
complementary sets of explicit declarations 
are permitted: 



FLOAT — Association of this attribute with 
an identifier defines the identifier 
as representing a variable referring 
to arithmetic data, where the data is 
represented internally in floating- 
point form. 

EXTERNAL — Association of this attribute 
with an identifier defines the 
identifier as a name with a certain 
special scope. 



1. One explicit declaration of an entry 
name as a statement prefix may be 
combined with an explicit declaration 
in a DECLARE statement. 

2. One or more explicit declarations in 
parameter lists may be combined with 
an explicit declaration in a DECLARE 
statement . 

All declarations of a complementary set 
must be internal to the same block. 
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The DECLARE Statement 



INITIAL 



Function: 

The DECLARE statement is a non- 
executable statement used for the 
specification of attributes of simple 
names. 

General Format: 

DECLARE [level] identifier [attribute] 

[ f [level] identifier [attribute]...]...; 



Syntax rules: 

1. Any number of identifiers 
declared as names in one 
statement. 



may be 
DECLARE 



2. Attributes must follow the names to 
which they refer. (Note that the 
above format does not show factoring 
of attributes, which is allowable as 
explained later) . 

3. "Level" is a non-zero decimal integer 
constant. If it is not specified, 
level 1 is assumed. 

4. A DECLARE statement may have a label 
prefix, but such use does not cause 
declaration of the identifier as a 
labe;! constant. 



LABEL (list) 

'LIKE 

OFFSET 

PICTURE 

POSITION 

precision 

RETURNS 

3. Attributes of EXTERNAL names, declared 
in separate blocks and compilations, 
must not conflict or supply explicit 
information that was not explicit or 
implicit in other declarations. 

Example: 

DECLARE JOE FLOAT, JIM FIXED (5,3), 
JACK BIT (10) ; 

JOE is declared to be a floating-point 
scalar variable, JIM a five-position, 
fixed-point scalar variable with three 
places to the right of the decimal point, 
and JACK a scalar variable of ten bits. 



5. A DECLARE statement cannot have a 
condition prefix. 

General Rules: 



Declaration of Structures 



1. All of the attributes given explicitly 
for a particular name must be declared 
together in one DECLARE statement. 
(Note that for FILE, certain attri- 
butes may be specified in an OPEN 
statement. See Chapter 7, "File Open- 
ing and File Attributes.") 

2. The following attributes may not be 
specified more than once for the same 
name: 

AREA 

BASED 

BIT 

CHARACTER 

DEFINED 

dimension 

ENTRY (parameter attribute list) 

GENERIC 



The outermost structure is a major 
structure, and all contained structures are 
minor structures. 

A structure is specified by declaring 
the major structure name and following it 
with the names of all contained elements. 
Each name is preceded by a level number, 
which is a non-zero decimal integer con- 
stant. A major structure is always at 
level one and all elements contained in a 
structure (at level n) have a level number 
that is numerically greater than n, but 
they need not necessarily be at level n+1, 
nor need they all have the same level 
number. 

A minor structure at level n contains 
all following items declared with level 
numbers greater than n up to but not 
including the next item with a level number 
less than or equal to n. A major structure 
description is terminated by the declara- 
tion of another item at level one, by the 
declaration of an item having no level 
number, or by the end of a DECLARE state- 
ment. 



38 



Factoring in DECLARE Statements 

Attributes common to several name dec- 
larations can be factored to eliminate 
repeated specification of the same attri- 
bute for many identifiers. This factoring 
is achieved by enclosing the name declara- 
tions in parentheses, and following this by 
the set of attributes which are to apply. 
Level numbers also may be factored, but in 
such cases, the level number precedes the 
parenthesized list of name declarations. 
Factoring of attributes is permitted only 
in the DECLARE statement, but not within an 
ENTRY attribute declaration. 

General format : 

declare- statement is defined as: 

DECLARE declaration-list; 
where declaration-list is defined as: 

declaration [, declaration] . .. 

where declaration is defined as: 

[integer] (identifier! 
(declaration-list) } 
(dimension- attribute) [attribute. . . ] 

Examples : 

1. DECLARE ((A FIXED, B FLOAT) STATIC, 

C CONTROLLED ) EXTERNAL; 

This declaration is equivalent to the 
following: 

DECLARE A FIXED STATIC EXTERNAL, 
13 FLOAT STATIC EXTERNAL, 
C CONTROLLED EXTERNAL; 

2. DECLARE 1 A AUTOMATIC, 2 (B FIXED, C 
FLOAT, D CHAR (10)) ; 

This declaration is equivalent to the 
following: 

DECLARE 1 A AUTOMATIC, 
2 B FIXED, 
2 C FLOAT, 
2 D CHAR (10) ; 



1, i.e., scalars or major structures). 
Multiple declarations are in error. 

Reference to a qualified name is always 
taken to apply to the identifier (for which 
the reference is valid) declared in the 
innermost block containing the reference. 
Within this block, the reference is unam- 
biguous if either of the following is true: 

1. The reference gives a valid qualifica- 
tion for one and only one declaration 
of the identifier. 

2. The reference represents the complete 
qualification of only one declaration 
of the identifier. The reference is 
then taken to apply to this identifi- 
er. 



ambiguous and 



Otherwise, the reference is 
in error. 

Examples: 



1. DECLARE 1 A, 2 C, 2D, 3 E; 

BEGIN ; 

DECLARE 1 A, 2 B, 3 C, 3 E; 

A. C=D.E; 
A.C refers to C in the inner block. 
D.E refers to E in the outer block. 

2. DECLARE 1 A, 2 B, 2 B, 2 C, 3 D, 2 D; 
B has a multiple declaration. 

A. D refers to the second D, since A.D 
is a complete qualification of only 
the second D; the first D would 
have to be referred to as A. CD or 
CD. 

3. DECLARE 1 A, 2 B, 3 C, 2 D, 3 C; 

A.C is ambiguous because neither C is 
completely qualified by this ref- 
erence. 

4. DECLARE 1 A, 2 A, 3 A; 

A refers to the first A- 
A. A refers to the second A. 
A. A. A refers to the third A. 

5. DECLARE X; DECLARE 1 Y, 2 X, 3 Z, 3 A, 
2 Y, 3 Z, 3 A; 

X refers to the first DECLARE 

Y.Z is ambiguous 

Y.Y,„Z refers to the second Z 

Y.X. Z refers to the first Z 



Multiple Declarations and Ambiguous 
References 



Label Prefixes 



Two or more declarations of the same 
identifier, internal to the same block, 
constitute a multiple declaration of that 
identifier only if they have identical 
qualification (including the case of two or 
more declarations of an identifier at level 



A label acting as a prefix to a PROCE- 
DURE or ENTRY statement explicitly declares 
the identifier as having the ENTRY attri- 
bute. If the PROCEDURE or ENTRY statement 
applies to an external procedure, the 
attribute EXTERNAL is given, and this dec- 
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laration is considered to be internal to an 
imaginary block containing the external 
procedure. In all other cases, the attri- 
bute INTERNAL is given, and the declaration 
is internal to the block containing the 
procedure. 

A label acting as a prefix to any other 
statement is an explicit declaration of the 
identifier as a statement label constant. 
The declaration is internal to the block 
containing the statement. 



Parameter's 



Task . An undeclared identifier can be 
contextually declared as a task varia- 
ble if it appears in parentheses fol- 
lowing the keyword TASK in the TASK 
option of a CALL statement. 



Event . An undeclared identifier can be 
declared 



contextually declared as 
variable if it appears: 



an 



event 



In parentheses following the key- 
word EVENT in the EVENT option of 
a statement. 



The appearance of an identifier in a 
parameter list of a PROCEDURE or ENTRY 
statement is an explicit declaration of the 
identifier as a parameter. 



5. 



In parentheses following the key- 
word WAIT in a WAIT statement. 



Entry . An undeclared identifier that 
is not a built-in function name can be 
contextually declared as an entry name 
if it appears: 



CONTEXTUAL DECLARATIONS 



The syntax of PL/I allows unqualified 
identifiers appearing in certain contexts 
to be recognized without an explicit dec- 
laration. Such contextual declarations 
will not, however, override any explicit 
declaration of the same identifier whose 
scope includes the block containing a 
statement that might otherwise cause con- 
textual declaration. 



Contextual 
follows: 



declarations can occur as 



1* Pointer. An undeclared identifier can 
be contextually declared as a pointer 
variable if it appears: 

a. In parentheses following the key- 
word BASED in a BASED attribute 
specification of a DECLARE state- 
ment. 

b. In parentheses following the key- 
word SET in the SET option of an 
ALLOCATE or LOCATE or READ state- 
ment . 

c. As a locator qualifier. 

2. Are a. An undeclared identifier can be 
contextually declared as an area vari- 
able if it appears in parentheses 
following the keyword IN in the IN 
clause of an ALLOCATE or FREE state- 
ment or if it appears in parentheses 
following the keyword OFFSET in an 
OFFSET declaration, or by its appear- 
ance in an OFFSET attribute specifi- 
cation. 



a. Following the keyword CALL in a 

CALL statement or CALL option of 

an INITIAL attribute specifi- 
cation. 



b. In a function reference, when fol- 
lowed by an argument list. 



6. Built-in . An undeclared identifier 
that is the same as a built-in func- 
tion name can be contextually declared 
with the BUILTIN attribute if it 
appears followed by an argument list. 

7 « File . An undeclared identifier can be 
contextually declared as a file name 
if it appears: 

a. In the file option of an input or 
output statement. 

b. In parentheses following one of 
the input/output condition names. 

P. Condition- name . An undeclared iden- 
tifier can be contextually declared as 
a condition name if it appears in 
parentheses following the keyword CON- 
DITION in an ON, SIGNAL, or REVERT 
statement. 

A contextual declaration is treated as 
if it had been made in the external proce- 
dure, even if the reference is made in an 
internal block. The scope of a contextual- 
ly declared name is the entire external 
procedure, except for any internal blocks 
in which the same identifier is explicitly 
declared. 
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IMPLICIT AND BUILT-IN DECLARATIONS 



An identifier that is neither explicitly 
declared nor contextually declared will be 
declared implicitly as an arithmetic varia- 
ble or it will be declared as the name of a 
built-in function. 

Attributes assigned by an implicit dec- 
laration depend upon the initial (or only) 
letter of the identifier. An identifier 
beginning with any of the letters I through 
N is assigned the attributes BINARY, FIXED, 
REAL, and default precision by implicit 
declaration. An identifier beginning with 
letter, including the three 
extenders, is assigned the 
DECIMAL, FLOAT, REAL, and 



any other 

alphabetic 

attributes 



default precision. 

Whenever an identifier is implicitly 
declared as a variable, the declaration is 
treated as if it had been made in the 
external procedure. Even if the reference 
causing the declaration appears In a con- 
tained block, the scope of an implicitly 
declared name is the entire external proce- 
dure, except for internal blocks in which 
the same identifier is explicitly declared. 
Note that a contextual declaration occur- 
ring anywhere within an external procedure 
precludes an implicit declaration of that 
identifier anywhere within the external 
procedure. 

The identifier will be declared as a 
built-in function if the identifier name is 
that of a built-in function and the iden- 
tifier name is nowhere used 

1. As a target variable in an assignment 
statement 

2. As the control variable in a D0- 
statement 

3. As the control variable in a 
repetitive specification within a data 
list 

U. As a receiving field in the data list 
of a GET statement 



ESTABLISHMENT OF DECLARATIONS 



The establishment of declarations of 
names is based on a system of priority, 
with explicit declarations having the 
highest priority. It follows a three-step 
process : 

1. Explicit declarations are established, 
with the scope of each name determined 
by the block in which the declaration 
is made. 



Undeclared identifiers are scanned to 
determine if their meaning can be 
recognized contextually (in one of the 
eight ways described under "Contextual 
Declarations"). Note that no contex- 
tual declaration of an identifier can 
be made if the identifier lies within 
the scope of an already established 
explicit declaration. If any unde- 
clared identifier is recognized con- 
textually, a declaration is generated, 
with scope established as if the dec- 
laration had been made in the external 
procedure. 

Following contextual declaration, 
implicit declarations or declarations 
as built-in functions are established 
for all remaining undeclared identifi- 
ers, with scope established as if the 
declaration were made in the external 
procedure. 



ASSIGNMENT OF ATTRIBUTES TO IDENTIFIERS 



Names can be given attributes explicitly 
through DECLARE statements, by occurrences 
in certain recognizable contexts, and by 
default rules for identifiers incompletely 
described by the programmer. 

At the time of declaration, all attri- 
butes need not be known. For an identifier 
occurring as a parameter, the charac- 
teristic "parameter" is combined with any 
explicitly declared attributes and/or 
defaults. Attributes of a file name can be 
specified in a DECLARE statement, with 
additional attributes specified in an OPEN 
statement or implied by the type of opera- 
tion specified in a data transmission 
statement that opens the file implicitly. 
An identifier occurring as an internal 
entry label is given the attributes INTER- 
NAL ENTRY, which then are also combined 
with any declared attributes for that iden- 
tifier, after which defaults are applied. 

If an identifier appears in a context 
that could furnish a contextual declaration 
of this identifier, and if the contextual 
reference occurs in the scope of a DECLARE 
statement declaring the identifier, then 
the context cannot add any attributes that 
are not given explicitly or by default in 
the DECLARE statement. 



Application of Default Attributes 



Default assumptions are as follows, for 
the identifier classes indicated: 
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ENTRY type: EXTERNAL is assumed. IRREDUCI- 
BLE is also assumed unless USES and/or 
SETS is specified in which case REDU- 
CIBLE is assumed. Scale, base, mode, 
and precision defaults for the value 
returned are the same as for arithmet- 
ic type given below. 

FILE type: A summary of file default 
attributes appears in "File Opening 
and File Attributes" in Chapter 7. 

TASK type: ABNORMAL and ALIGNED are 
assumed. Scope and storage class 
defaults are the same as for Arithmet- 
ic type given below. 



EVENT type: Defaults are the same 
TASK type. 



as for 



LABEL type: Range is assumed to be all 
labels which could be assigned to the 
variable. NORMAL and ALIGNED are 
assumed. Scope and storage class 
defaults are the same as for arithmet- 
ic type given below. 

Locator type: NORMAL and ALIGNED are 
assumed. Scope and storage class 
defaults are the same as for arithmet- 
ic type given below. 

AREA type: NORMAL and ALIGNED are assumed. 
Scope and storage class defaults are 
the same as for arithmetic type given 
below. 

Condition type: EXTERNAL scope is assumed. 

String type: NORMAL and UNALIGNED are 
assumed. Scope and storage class 
defaults are the same as for arithmet- 
ic type given below. 

Major Structure type: NORMAL is assumed. 

Minor Structure type: NORMAL is assumed. 
INTERNAL is assumed. 

Elementary Structure Element type: NORMAL 
is assumed. INTERNAL is assumed. If 
ax"ithmetic type has been indicated, 
then scale, base, mode, and precision 
defaults are the same as for arithmet- 
ic type given below. 

Arithmetic type: If none of scale, base, 
and mode has been given, then if the 
identifier starts with any of the 
letters I - N, FIXED BINARY REAL is 
assumed; otherwise FLOAT DECIMAL REAL 
is assumed. If at least one of these 
has been given, then the remaining 
defaults are taken from FLOAT, DECI- 
MAL, and REAL. Default precision is 
implementation defined, dependent on 
scale and base. NORMAL, INTERNAL, and 
ALIGNED are assumed. If no storage 



class is given, then AUTOMATIC is 
associated with INTERNAL and STATIC 
With EXTERNAL. 



SCOPE OF DECLARATIONS 



When a declaration of an identifier is 
made in a block, there is a certain well- 
defined region of the program over which 
this declaration is applicable. This 
region is called the scope of the declara- 
tion or the scope of the name established 
by the declaration . 



an iden- 

to which 

excluding 

to which 

dentif ier 

imaginary 

tain the 

name, as 



The scope of a declaration of 
tifier is defined as that block B 
the declaration is internal, but 
from block B all contained blocks 
another declaration of the same i 
is internal. (Block B may be an 
block that is considered to con 
declaration of an external entry 
discussed under "Label Prefixes.") 



Scope of External Names 



In general, distinct declarations of the 
same identifier imply distinct names with 
distinct non- overlapping scopes. It is 
possible, however, to establish the same 
name for distinct declarations of the same 
identifier by means of the EXTERNAL attri- 
bute. The EXTERNAL attribute is defined as 
follows: 



A declaration of an i 
declares the identifier a 
called an external decla 



dentifier that 
S EXTERNAL is 
ration for the 



identifier. All external declarations 

:r in a program 
iered as esta- 
The scope of 
union of the 
tl declarations 



for the same identifie] 
will be linked and consid< 
blishing the same name, 
this name will be the 
scopes of all the externa! 
for this identifier. 



In all of the external declarations for 
the same identifier, the attributes 
declared must be consistent, since the 
declarations all involve a single name. 
For example, it would be an error if the 
identifier ID were used as an EXTERNAL file 
name in some READ statement in a program, 
and in the same program to declare ID as 
EXTERNAL ENTRY. 

The EXTERNAL attribute can be used to 
communicate between different external pro- 
cedure's or to obtain non- continuous scopes 
for a name within an external procedure. 
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An exter nal name is a name that has the 
scope attribute EXTERNAL. If a name is not 
external, it is said to be an internal name 
and has the scope attribute INTERNAL. 



The following examples illustrate scope 
of declarations. The numbers on the left 
are for reference only, and are not part of 
the procedure. See Table 2 for an explana- 
tion of the scope and use of each name. 



Since entry names of external procedures 
and file names have the attribute EXTERNAL, 
the scope of the entry name A and of the 
file name X above may include parts of 
other external procedures of the program. 

Example 2: 

A: PROCEDURE; 
1 DECLARE X EXTERNAL; 



Example 1 : 

1 A : PROCEDURE ; 

2 DECLARE (X,Z) FLOAT; 



3 B: PROCEDURE (Y) ; 

4 DECLARE Y BIT (6) ; 

5 C: BEGIN; 

6 DECLARE (A,X) FIXED; 



7 




Y: RETURN; 






END C; 






END B; 


8 


D: 


PROCEDURE ; 


9 




DECLARE X FILE; 


10 




Y = Z; 



PROCEDURE; 
DECLARE X FIXED; 



C: BEGIN; 

DECLARE X EXTERNAL; 



END C; 
END B; 
END A; 
D: PROCEDURE; 
4 DECLARE X FIXED; 



E: PROCEDURE; 

DECLARE X EXTERNAL; 



END D; 
END A; 



END F; 
END D; 



Table 2. Scope and Use of Names in Example 1, for "Scope of External Names" 



Reference 


Line 


Name 


1 




A 


2 




X 


2 




Z 


3 




B 


4 




Y 


5 




C 


6 




A 


6 




X 


7 




Y 


8 




D 


9 




X 


10 




Y 



Use 
external entry name 
floating-point variable 
floating-point variable 
internal entry name 
bit string 
statement label 
fixed-point variable 
fixed-point variable 
statement label 
internal entry name 
file name 
floating-point variable 



Scope (by block names) 

all of A except C 

all of A except C and D 

all of A 

all of A 

all of B except C 

all of B 

all of C 

all of C 

all of C 

all of A 

all of D 

all of A except B 
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In Example 2, there are five declara- 
tions for the identifier X. 

Declaration 2 declares X as a fixed- 
point variable name; its scope is all of 
block B except block C. 

Declaration 4 declares X as another 
fixed-point variable name, distinct from 
that of declaration 2; its scope is all of 
block D except block E. 

Declarations 1,3,5 all establish X as a 
single name; its scope is all of the 
program except the scopes of declarations 2 
and U. 



Basic Rule on Use of Names 



only within 

definition suggests a 



A name is said to be known 
its scope. This 
basic -- and almost self-evident — rule on 
the use; of names: 



All a ppearances of an identifier which 
are intended to represent a given name 



the scope 



in a prog ram must lie within 
of that name. 



There are many implications to the above 
rule. One of the most important is the 
limitation of transfer of control by the 
statement GO TO A, where A is a statement 
label. 

The statement GO TO A, internal to a 
block B, can cause a transfer of control to 
another statement internal to block B or to 
a statement in a block containing B, and to 
no other statement. In particular, it 
cannot transfer control to any point within 
a block contained in B. 



THE ATTRIBUTES 



The attributes are divided into separate 
classes, as listed in the following 
paragraphs. Each attribute is described in 
detail in the "Alphabetic List of Attri- 
butes," below. 



specify the base, scale, mode, and preci- 
sion of the data items. String variables 
have attributes that specify whether the 
variable represents character strings or 
bit strings and that specify the length to 
be maintained. The arithmetic data attri- 
butes are: 

BINARY | DECIMAL 

FIXED | FLOAT 

REAL | COMPLEX 

(precision) 
PICTURE 
The string data attributes are: 
BIT | CHARACTER 

(length) 
VARYING 
PICTURE 



Program Control Data Attributes 

Attributes for program control data 
specify that the associated name is to be 
used by the programmer to control the 
execution of this program. The program 
control data attributes are: 

LABEL 

TASK 

EVENT 

CELL 

AREA 

POINTER 

OFFSET 



Other Attributes of Data 



DATA ATTRIBUTES 



Problem Data Attributes 



Attributes for problem data are used to 
describe arithmetic and string variables. 
Arithmetic variables have attributes that 



The INITIAL, DEFINED, ALIGNED, UNAL- 
IGNED, storage class, and scope attributes 
can be declared for both problem data and 
program control data. 

Other attributes apply only to data 
aggregates. For array variables, the 
dimension attribute specifies the number of 
dimensions and the bounds of an array. The 
LIKE attribute specifies that the structure 
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variable being declared is to have the same 
structuring as the structure of the name 
following the attribute LIKE. The SECON- 
DARY attribute specifies that certain data 
does not require efficient storage. 



ENTRY NAME ATTRIBUTES 



The entry name attributes identify the 
name being declared as an entry name and 
describe features of the associated entry 
point. For example, the attribute BUILTIN 
specifies that the reference to the asso- 
ciated name within the scope of the dec- 
laration is interpreted as a reference to 
the built-in function or pseudo-variable of 
the same name. The entry name attributes 
are: 

ENTRY 

RETURNS 

GENERIC 

BUILTIN 



FILE ATTRIBUTE? 



The file description attributes esta- 
blish an identifier as a file name and 
describe characteristics for that file, 
e.g., how the data of the file is to be 
transmitted, whether records of a file are 
to be buffered. If the same file name is 
declared in more than one external proce- 
dure, the declarations must not conflict, 
unless one is declared with the INTERNAL 
attribute. 

The file attributes are: 

FILE 

STREAM J RECORD 

INPUT | OUTPUT ] UPDATE 

PRINT 

SEQUENTIAL | DIRECT 

BUFFERED | UNBUFFERED 

BACKWARDS 

ENVIRONMENT (option- list) 

KEYED 

EXCLUSIVE 



Note that file description attributes, 
except for the ENVIRONMENT attribute, can 
be specified as options in the option list 
of the OPEN statement. 



OPTIMIZATION ATTRIBUTES 



The optimization attributes provide 
information to the compiler to allow (or 
prevent) optimization of certain portions 
of the compiled program. They specify the 
way in which data may be altered and the 
behavior of procedures when they are 
invoked. The optimization attributes are: 



ABNORMAL | NORMAL 
IRREDUCIBLE | REDUCIBLE 
SETS (item- list) 



USES (item-list) 

In the absence of any information to the 
contrary, the following assumptions are 
made: 

1. All entry names are irreducible. 

2. All variables are normal. 

A variable is said to be abnormal if its 
value may be altered or otherwise accessed 
without an explicit indication. Thus, for 
example, the appearance of a variable name 
on the left side of an assignment state- 
ment, in the data list specification of a 
GET statement, or as an argument to an 
irreducible function or procedure (see 
below) indicates a predictable situation 
where the variable may change its value. 
However, when the variable is subject to 
change by the occurrence of an ON- 
condition, or if it is subject to change in 
a procedure invoked with the TASK option 
(see "Asynchronous Operations and Tasks") , 
then there is no way to predict the point 
at which the change in value will occur or, 
in fact, if it will occur. 

Such possibilities cannot always be 
recognized contextually. Furthermore, if a 
portion of a source program contains sever- 
al references to such a variable, the order 
in which the indicated operations are exe- 
cuted becomes significant. (For example, 
if B is abnormal, the expression B + B is 
not necessarily equivalent to the expres- 
sion 2 * B.) 

The implication is that the programmer 
expects the operation to be performed in a 
particular order. Such variables must 
therefore be declared ABNORMAL, to inhibit 
the optimization of such portions of a 
source program. 
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If a function is invoked several times 
with the same arguments, a compiler may or 
may not be able to invoke the function once 
and then, in subsequent references, simply 
use the value returned by the first invoca- 
tion. The "irreducibility" of a procedure 
determines whether the number of times it 
is invoked may be reduced in this way 
without altering the results of the pro- 
gram. A procedure is either completely 
irreducible, definitively irreducible, or 
reducible. 



A procedure is completely irreducible if 
it, or any of its dynamically descendant 
blocks, does any of the following: 

1. Returns different function values for 
identical argument values 

2. Maintains any kind of history 

3. Performs input or output operations 

4. Returns control from the procedure by 
means of a GO TO statement 

If any such cases apply, each function 
reference to the procedure must be evaluat- 
ed. The IRREDUCIBLE attribute is used to 
describe such procedures; it must either be 
given explicitly or obtained by default. 
The additional specification of USES and 
SETS is allowed, but will not cause the 
procedure to be recognized as definitively 
irreducible. 

Provided a procedure is not completely 
irreducible, it is definitively irreducible 
if it, or any of its dynamically descendant 
blocks, accesses, modifies, allocates, or 
frees any of its arguments or any genera- 
tion of a variable known in the invoking 
block. These actions of the procedure may 
be defined by the USES and SETS attributes. 
Provided these attributes are specified and 
the procedure is declared REDUCIBLE or is 
REDUCIBLE by default, the procedure is 
-recognized as being definitively irreduci- 
ble. The number of invocations of such a 
procedure with identical arguments may be 
reduced provided the following conditions 
are satisfied: 

1. No variable specified in the USES 
attribute is also specified in the 
SETS attribute 

2. No variable mentioned in the USES 
and/or SETS attribute has its value 
changed between the function referen- 
ces 

When irreducibility is specified, wheth- 
er it be complete or definitive, the order 
of evaluation of expressions becomes signi- 
ficant. Hence, the results of a program in 



which irreducible functions are invoked may 
depend on the implementation. 



SCOPE ATTRIBUTES 



The scope attributes are used to specify 
whether or not a name may be known in 
another external procedure. The scope 
attributes are: 

INTERNAL | EXTERNAL 

All external declarations for the same 
identifier in a program are linked as 
declarations of the same name. The scope 
of this name is the union of the scopes of 
all the external declarations for this 
identifier. 

In all of the external declarations for 
the same identifier, the attributes 
declared must be consistent, since the 
declarations all involve a single name. 
For example, it would be an error if the 
identifier ID were declared as an EXTERNAL 
file name in one block and as an EXTERNAL 
entry name in another block in the same 
program. 

The INTERNAL attribute specifies that 
the declared name is known only in the 
declaring block and its contained blocks. 

The same identifier may be declared with 
the INTERNAL attribute in more than one 
block without regard to whether the attri- 
butes given in one block are consistent 
with the attributes given in another block, 
since each such declaration establishes a 
different name. 



STORAGE CLASS ATTRIBUTES 



The storage class attributes are used to 
specify the type of storage for a data 
variable. The storage class attributes 
are: 



STATIC 
AUTOMATIC 
CONTROLLED 
BASED 
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ALPHABETIC LIST OF ATTRIBUTES 



Following are detailed descriptions of 
the attributes, listed in alphabetic order. 
Alternative attributes are discussed 
together, with the discussion listed in the 
alphabetic location of the attribute whose 
name is the first in alphabetic order. A 
cross-reference to the combined discussion 
appears wherever an alternative appears in 
the alphabetic listing. 



ABNORMAL and NORMAL (Optimization 
Attributes) 



The ABNORMAL and NORMAL attributes spec- 
ify the ways in which values of variables 
may be altered. 

The NORMAL attribute specifies that the 
value of a variable will not be changed 
except through normal assignments that can 
be predicted. Consequently, the value need 
not necessarily be accessed each time the 
variable is referred to. 

The ABNORMAL attribute specifies that 
the value of a variable may be changed at 
an unpredictable time. Consequently, the 
value must be accessed each time the varia- 
ble is referred to. A variable should be 
declared ABNORMAL if its value might be 
changed in an on-unit or by references in 
more than one task. 

General format: 

ABNORMAL | NORMAL 

General rules: 

1. If any component of a structure, eith- 
er a scalar variable or a minor struc- 
ture, is declared ABNORMAL, no con- 
taining structure name, nor the name 
of the major structure can be expli- 
citly declared NORMAL. However, con- 
tained components of an ABNORMAL 
structure can be declared with the 
NORMAL attribute. 

2. A structure explicitly declared with 
the NORMAL attribute cannot contain 
abnormal components . 

Assumptions : 

NORMAL is the default. Variables are 
assumed to be NORMAL unless they are compo- 
nents of a structure declared to be ABNOR- 
MAL; such components are assumed to be 
ABNORMAL unless they are explicitly 
declared NORMAL. Each component of a 
structure that has been explicitly declared 



NORMAL will be given the NORMAL attribute 
by default. Each ABNORMAL component of a 
structure will cause its containing compo- 
nents to be ABNORMAL by default. Any 
structure component that has not been given 
a NORMAL or ABNORMAL attribute, either 
explicitly or by default, will be NORMAL by 
default. 



ALIGNED and UNALIGNED (Data Attributes) 



The ALIGNED and UNALIGNED attributes 
specify the arrangement of data elements in 
storage to provide soeed of access or 
storage economy respectively. 

ALIGNED and UNALIGNED are element data 
attributes, but, syntactically, either may 
also be applied to any aggregate. This is 
semantically equivalent to the application 
of the attribute to all contained elements 
of the aggregate which are not explicitly 
declared with the ALIGNED or UNALIGNED 
attribute. 

General format: 

ALIGNED | UNALIGNED 



General rules: 

1. Applicati 
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2. The ALIGNED and UNALIGNED attributes 
are applied by default at element 
level. The default for bit-class and 
character-class data is UNALIGNED, and 
for all other types of data it is 
ALIGNED. 

3. For string overlay defining, all the 
elements of the defined item must have 
the UNALIGNED attribute, as must those 
of the base item covered by the range 
of defining, i.e., from its beginning 
for a length equal to the length of 
the item plus the value of the start- 
ing position minus one. 

4. For simple and iSUB defining, the 
attributes ALIGNED and UNALIGNED must 
agree between corresponding elements 
of the defined item and the base. 
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5. The ALIGNED and UNALIGNED attributes 
of an argument in a procedure invoca- 
tion must match the attributes of the 
corresponding parameter. If the 
attributes of the orginal argument do 
not match those of the corresponding 
parameter in an ENTRY attribute dec- 
laration, a dummy argument is created 
with the attributes specified in the 
ENTRY attribute declaration, and the 
original argument is assigned to it. 

6. If a BASED variable is used to access 
a generation of another variable, then 
the ALIGNED and UNALIGNED attributes 
of the accessed variable and the BASED 
variable must agree. 

7. For all operators and built-in func- 
tions, the default for ALIGNED or 
UNALIGNED is applicable to the ele- 
ments of the result. 



Constants take the default 
or UNALIGNED. 



:or ALIGNED 



AREA (Progr am Control Data Attribute) 



The AREA attribute defines storage that, 
on allocation, is to be reserved for the 
allocation of based variables. Storage 
thus reserved can be allocated to and freed 
from based variables by naming the area 
variable in the IN option of the ALLOCATE 
and FREE statements. Storage that has been 
freed can be subsequently reallocated to a 
based variable. 

General format: 

AREA [(size)] 

Syntax rule: 

The "size" can be an expression or an 
asterisk. 

General rules: 

1. The area size for areas that are not 
of static storage class is given by an 
expression which is converted to an 
integer when the area is allocated. 
It is used in an implementation- 
defined way to indicate the amount of 
storage to be reserved. 

2. The size for areas of static storage 
class must be specified as a decimal 
integer constant. 

3. An asterisk may be used to specify the 
size if the area variable being 
declared is controlled or is a param- 
eter. In the case of a controlled 
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area variable that is declared with an 
asterisk, the size must be specified 
in the ALLOCATE statement used to 
allocate the area. In the case of a 
parameter that is declared with an 
asterisk, the size is inherited from 
the argument. 

The £REA condition is raised if an 
attempt is made to allocate a based 
variable in an area that does not 
contain sufficient free storage for 
the allocation. 

Data of the area type cannot be con- 
verted to any other type; an area can 
be assigned to an area variable only. 

During execution, the state of the 
storage allocated for an area depends 
only on the allocations made and freed 
in the area; it does not depend on the 
size of the area. This state is 
represented by the significant alloca- 
tions made in the area. When an area 
is allocated, it contains no signifi- 
cant allocations; its value is identi- 
cal to the EMPTY built-in function. 
An allocation, A, made in an area is 
significant at some given time if it 
has not been freed by that time. If 
it has been freed by that time, it is 
significant only if a subsequent sig- 
nificant allocation was made before A 
was freed. 

No operators can be applied to area 
variables. An area expression is 
either a reference to an area variable 
or a reference to a function returning 
data of area type. 

Only the INITIAL CALL form of the 
INITIAL attribute is allowed with area 
variables. Since area variables are 
effectively initialized to the value 
of the EMPTY built-in function, only 
one alternative of a cell can be, or 
can contain, data of area type. 

An area may have the DEFINED attri- 
bute. Only simple and iSUB defining 
are allowed. The base must have the 
same size as the defined area. 

Area data may be transmitted in RECORD 

I/O; it maintains its validity. Area 

data cannot be transmitted by STREAM 
I/O. 



Assumptions 
1. 



If the size is omitted, an 
implementation- defined default value 
is supplied. 

An area variable can be contextually 
declared by its appearance in an 
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OFFSET attribute specification or in 
an IN option. 



AUTOMATIC, STATIC, CONTROLLED and BASED 
(Storage Class Attributes) 



The storage class attributes are used to 
specify the type of storage allocation to 
be used for data variables. 

AUTOMATIC specifies that storage is to 
be allocated upon each entry to the block 
to which the storage declaration is inter- 
nal. The storage is released upon exit 
from the block. If the block is a proce- 
dure that is invoked recursively, the pre- 
viously allocated storage is "pushed down" 
upon entry; the latest allocation of stor- 
age is "popped up" upon termination of each 
generation of the recursive procedure. 

STATIC specifies that storage is to be 
allocated when the program is loaded and is 
not to be released until program execution 
has been completed. 

CONTROLLED specifies that full control 
will be maintained by the programmer over 
the allocation and freeing of storage by 
means of the ALLOCATE and FREE statements. 
Multiple? allocations of the same controlled 
variable*, without intervening freeing, will 
cause stacking of generations of the varia- 
ble. 

BASED, like CONTROLLED, specifies that 
full control over allocation and freeing 
will be maintained by the programmer. How- 
ever, the separate generations are not 
stacked; each may be accessed by a pointer 
value that identifies the generation and is 
used as a locator qualifier applied to the 
based variable. A based variable can be 
used to identify data of any storage class 
by associating the based variable name with 
a locator qualifier that points to that 
data. Based variables can be allocated and 
freed by use of the ALLOCATE and FREE 
statements. Such allocations are not 
stacked. Any generation is available as 
long as it remains in an allocated state. 

General format: 

STATIC 
I AUTOMATIC 
(CONTROLLED 

BASED! (scalar- locator-expression) ]' 

General rules: 

1. Automatic and based variables can have 
internal scope only. Static and con- 
trolled variables may have either 
internal or external scope. 



Storage class attributes cannot be 
specified for entry names, file names, 
members of structures, or DEFINED data 
items. 



STATIC, BASED, and AUTOMATIC attri- 
butes cannot be specified for paramet- 
ers . 



Variables declared with adjustable 
lengths and dimensions cannot have the 
STATIC attribute. 



For a structure variable, a storage 
class attribute can be given only for 
the major structure name. The attri- 
bute then applies to all elements of 
the structure or to the entire array 
of structures. If the CONTROLLED or 
BASED attribute is given to a struc- 
ture, only the major structure and not 
the elements can be allocated and 
freed. 



If, during evaluation of an expres- 
sion, a controlled or based vari.able 
is allocated or freed, the result of 
the statement depends upon the implem- 
entation in those cases in which the 
variable is used elsewhere in the 
statement. 



The following rules govern the use of 
based variables: 



a. If no locator expression is speci- 
fied, any reference to the based 
variable must have an explicit 
locator qualifier. This does not 
apply to a based variable that is 
the object of a REFER option or 
that is to be allocated through 
the use of an ALLOCATE or LOCATE 
statement. 

b. A reference to a based variable 
without an explicit locator quali- 
fier is implicitly qualified by 
the locator expression in the 
BASED attribute specification in 
the DECLARE statement for that 
based variable. Identifiers in 
this implicit qualification are 
those of the names in the declar- 
ing block. Expressions occuring 
in this implicit qualifier are 
evaluated in the current environ- 
ment of the declaring block with 
enabling of conditions as the ena- 
bling of conditions exists at the 
point of reference. Consider the 
following example: 
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DECLARE B BASED (P(I)), 
P(3) POINTER; 



BEGIN; 

DECLARE P POINTER, I; 



L: B = X; 



The statement B=X has the same 
effect as: 



P(I)->B=X; 

Where both P and I are the names 
known in the outer block, not 
those declared in the begin block. 
Conditions enabled at L are used 
when P(I) is evaluated. 

c. When a reference is made to a 
based variable, the data attri- 
butes assumed are those of the 
based variable, while the asso- 
ciated locator variable identifies 
the generation of data. If the 
reference is to a component of a 
based structure, a second, tem- 
porary locator variable is created 
to determine the location of the 
component in relation to the 
beginning of the structure. 

d. Array bounds and string lengths 
declared with the based variable 
are evaluated dynamically with 
each reference to the based varia- 
ble. Therefore, the asterisk 
notation for dimensions and 
lengths is not permitted. A ref- 
erence to a component of a based 
structure causes evaluation of 
sufficient elements of the struc- 
ture to determine the position of 
the component. 

e. When a based variable is allocated 
using the ALLOCATE or LOCATE 
statement, expressions for bounds, 
lengths, and area sizes are evalu- 
ated at the time of allocation. 

f. The REFER option can be used to 
create structures that contain 
self -defining data. It may be 
used in a DECLARE statement to 
specify a bound of an array, the 
length of a string, or the size of 
an area. The REFER option has the 
following form: 

expression REFER (unsubscripted- 
scalar-variable) 



The "unsubscripted- scalar- varia- 
ble," which is the object of the 
REFER option, must be the name of 
a preceding scalar member of the 
structure containing the REFER 
option. 



Upon allocation of a structure 
containing one or more REFER 
options, all expressions for 
bounds, string lengths, and area 
sizes are evaluated (in any 
order) , a new generation of the 
structure is then allocated, and 
the relevant locator variable is 
assigned a value to identify this 
generation. Initialization is 
then done (in any order) for the 
new generation of variables that 
are objects of the REFER options, 
using the value obtained for each 
from the expression appearing in 
its respective REFER option. 

In a reference specifying some 
generation of a based variable, 
some of whose bounds, lenghts, and 
sizes are specified by REFER 
options, these values are taken 
from the values of those variables 
in the generation referred to, 
that are objects of the REFER 
options. 

Note: The unsubscripted variable 
that is the object of the REFER 
option differs from other based 
variables in that when a reference 
is made to it, the implied pointer 
from the based variable is not 
used, but the reference is always 
to that generation of the struc- 
ture that is currently being 
accessed or allocated. 

g. The EXTERNAL attribute cannot be 
specified for a based variable. 

h. The VARYING attribute cannot be 
specified for a based variable. 

i. The INITIAL attribute may be spec- 
ified for a based variable. The 
values are used only upon explicit 
allocation of the based variable 
with an ALLOCATE or LOCATE state- 
ment. If the REFER option appears 
in a structure for which any ele- 
ment has the INITIAL attribute, 
initialization specified by the 
INITIAL attribute is done after 
contained variables named in all 
REFER options have been assigned 
their proper values. 

j. A based variable cannot appear in 
the item list of a CHECK condition 
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prefix, nor in a data-directed 
data list. 

k. Whenever a based variable contain- 
ing arrays, strings, or areas is 
passed as an argument, dimensions, 
lengths, and sizes are determined 
at the time the argument is passed 
and remain fixed throughout execu- 
tion of the invoked block. 

Assumptions: 

1. If no storage class attribute is spec- 
ified and the scope is internal, AUTO- 
MATIC is assumed. 

2. If no storage class attribute is spec- 
ified and the scope is external, STA- 
TIC is assumed. 

3. If neither the storage class nor the 
scope attribute is specified, AUTOMAT- 
IC is assumed. 

4. An undeclared identifier appearing in 
parentheses following the keyword 
BASED in the BASED attribute specifi- 
cation is contextually declared with 
the POINTER and AUTOMATIC attributes. 



by an arithmetic variable as either binary 
or decimal. 

General format: 

BINARY | DECIMAL 

General rule: 

The BINARY or DECIMAL attribute cannot 
be specified with the PICTURE attribute. 

Assumptions: 

Undeclared identifiers (or identifiers 
declared only with one or more of the 
ABNORMAL, NORMAL, DEFINED, SECONDARY, INI- 
TIAL, ALIGNED, UNALIGNED, dimension, scope, 
and storage class attributes) are assumed 
to be arithmetic variables with assigned 
attributes depending upon the initial let- 
ter. For identifiers beginning with any 
letter I through N, the default attributes 
are REAL FIXED BINARY with default preci- 
sion. For identifiers beginning with any 
other alphabetic character,, the default 
attributes are REAL FLOAT DECIMAL with 
default precision. If FIXED or FLOAT 
and/or REAL or COMPLEX are declared, then 
DECIMAL is assumed. 



BACKWARDS (Fil e Description Attribute) 



BIT and CHARACTER (String Attributes) 



The BACKWARDS attribute specifies that 
the records of a SEQUENTIAL INPUT file are 
to be accessed in reverse order, i.e., from 
the last record to the first record. 

General format: 

BACKWARDS 

General rule: 

The BACKWARDS attribute applies to 
RECORD files only; that is, it conflicts 
with the STREAM attribute. It implies 
RECORD and SEQUENTIAL. 



BASED (Storage Class Attibute) 



See AUTOMATIC. 



BINARY and DECIMAL (Arithmetic Data 
Attributes) 



The BIT and CHARACTER attributes are 
used to specify string variables. The BIT 
attribute specifies a bit string. The 
CHARACTER attribute specifies a character 
string. The length attribute for the 
string must also be specified. 



General format: 

{BIT | 
CHARACTER J 
General rules: 



(length) [VARYING] 



The BINARY and DECIMAL attributes speci- 
fy the base of the data items represented 



The length attribute specifies the 
length of a fixed-length string or the 
maximum length of a varying- length 
string. 

The VARYING attribute specifies that 
the variable is to represent varying- 
length strings, in which case, length 
specifies the maximum length. The 
current length at any time is the 
length of the current value. VARYING 
may appear anywhere in the declaration 
of the string, and it may be factored. 
VARYING cannot be specified for 
defined or based variables. 
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3. The length attribute must immediately 
follow the CHARACTER or BIT attribute 
at the same factoring level with or 
without intervening blanks. 

4. The length attribute may be specified 
by an expression or an asterisk. 

If the length specification is an 
expression, it is converted to an 
integer when storage is allocated for 
the variable,. 

The asterisk notation can be used for 
specification of parameters and con- 
trolled variables. In the case of 
parameters other than controlled par- 
ameters, it indicates that the length 
is to be that of the argument; other- 
wise a decimal integer constant is 
required. In the case of controlled 
variables, it indicates that the 
length is to be specified when the 
variable is allocated. For based 
variables, the asterisk notation can- 
not be used, but the REFER option of 
the BASED attribute can be used to 
specify length at allocation time. 

5. If a string has the STATIC attribute, 
the length attribute must be a decimal 
integer constant. 

6. The BIT, CHARACTER, and VARYING attri- 
butes cannot be specified with the 
PICTURE attribute. 

1. The PICTURE attribute can be used 
instead of CHARACTER to declare a 
fixed' length string variable (see the 
PICTURE attribute) . 

8. All of the string attributes must be 
declared explicitly unless the PICTURE 
attribute is used. There are no 
defaults for string data. 



BUFFERED and UNBUFFERED (File Description 
Attributes) 



General rule: 

The BUFFERED and UNBUFFERED attributes 
can be specified for SEQUENTIAL RECORD 
files only. 

Assumption: 

Default is BUFFERED - 



BUILTIN (Entry Attribute) 



The BUILTIN attribute specifies that any 
reference to the associated name within the 
scope of the declaration is to be inter- 
preted as a reference to the built-in 
function or pseudo- variable of the same 
name. 

General format: 

BUILTIN 

General rules : 

1. BUILTIN is used to refer to a built-in 
function or pseudo-variable in a block 
that is contained in another block in 
which the same identifier has been 
declared to have another meaning. 

2. If the BUILTIN attribute is declared 
for an entry name, the entry name can 
have no other attributes. 



3. The BUILTIN attribute 
declared for parameters. 



cannot be 



CELL (Program Control Data Attribute) 



Function: 



The BUFFERED attribute specifies that 
during transmission to and from external 
storage each record of a SEQUENTIAL RECORD 
file must pass through intermediate storage 
buffers. 

The UNBUFFERED attribute specifies that 
such records need not pass through buffers. 
It does not, however, specify that they 
must not. 

General format: 

BUFFERED I UNBUFFERED 



The CELL attribute establishes the asso- 
ciated identifier as a cell and specifies 
that each declaration in the alternative 
list will occupy the same storage as the 
other alternative declarations in the list. 
It differs from the DEFINED attribute in 
that it provides storage equivalence (i.e., 
different data declarations occupying the 
same storage) , whereas the DEFINED attri- 
bute provides data equivalence (i.e., dif- 
ferent ways of referring to the same data) . 

General format: 

CELL alternative-list 
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Syntax rules: 



The alternative list should contain 
the data declarations of at least two 
alternatives. This declaration of a 
cell is the same as the declaration 
for a structure except that the CELL 
attribute is specified for the first 
name. 



2. Each alternative declaration must be 
preceded by a level number, which must 
be numerically greater than the level 
number of the cell identifier. 



3. The cell identifier may be given other 
attributes. These attributes may be 
specified either before or after the 
keyword CELL but not after the alter- 
native list. The only other attri- 
butes that a cell identifier may have 
are as follows: 

a. The dimension attribute 

h. ABNORMAL or NORMAL 

c- Any of the storage class attri- 
butes 

d, EXTERNAL or INTERNAL 



7. Only one AREA alternative is allowed 
for a single cell variable, and if an 
alternative contains an area, no other 
alternative can have the INITIAL 
attribute. 



Exampl es : 



1. DECLARE 1 



AAA, 
2 BBB CELL, 

3 U POINTER, 

3 V FLOAT (12) , 

3 W CELL, 

4 XX CHARACTER (20), 
4 YY BIT (100) , 
2 CCC CHARACTER (5), 
2 DDD (20) CELL, 
3 EE BIT (5), 
3 FF CHARACTER (1) ; 



The above example describes a structure 
AAA whose components are as follows: 



a. BBB, a cell whose alternatives are 



the pointer variable 



U, 



the 



floating-point variable V, and 

another cell, W. The cell W, in 

turn, contains two alternatives: 

the character string XX and the 
bit string YY. 



e. SECONDARY 

Note that c, d, and e may be given 
only for a cell at level 1. 

General rules: 

1,. Each alternative may have any of the 
attributes that a structure component 
may have. 

2. Each alternative is gualified by the 
name of the cell to which it belongs 
and may be referred to as such. 

3. Any dimension that a cell identifier 
has been given is inherited by the 
alternatives of that cell. 

4. Only one alternative may be active at 
one time. In other words, at any one 
point in time, only one alternative of 
a cell can contain a value. An 
assignment to one alternative effec- 
tively deactivates the previously 
active alternative. 

5. Only one alternative of a cell may 
have the INITIAL attribute. 

6. A cell may appear only in DECLARE, 
ALLOCATE, and FREE statements, as well 
as in the context of arguments and 
parameters. 



b. CCC, a character string. 



c. DDD, an array of 20 elements, each 
of which is a cell having two 
alternatives: bit string EE and 
character string FF. Note that 
DDD(10).EE and EE(10) are referen- 
ces to the same alternative; name- 
ly, the bit string alternative for 
the tenth cell in DDD. 

2. DECLARE 1 A CELL CONTROLLED, 
2 B FLOAT (8) , 
2 C FIXED (10) ; 



ALLOCATE A; 



FREE A; 



In this example, A is a cell whose 
storage is allocated and freed by the use 
of the ALLOCATE and FREE statements. Dur- 
ing the time that A remains allocated, its 
alternatives, B and C, are available for 
use. 
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CHARACTE R (String Attribute) 



assigned to the base item specified in the 
attribute- 



See BIT, 



COMPLEX and REAL (Arithmetic Data 



Attributes) 



The COMPLEX and REAL attributes are used 
to specify the mode of an arithmetic varia- 
ble. REAL specifies that the data items 
represented by the variable are to be real 
numbers. COMPLEX specifies that the data 
items represented by the variable are to be 
complex numbers, that is, each data item is 
a pair: the first member is a real number 
and the second member an imaginary number. 

General format: 

REAL | COMPLEX 

General rule: 

1. If a numeric character variable is to 
represent complex values, the COMPLEX 
attribute must be specified with the 
PICTURE attribute. The COMPLEX or 
REAL attribute is the only other 
arithmetic or string data attribute 
that can be specified with the PICTURE 
attribute. 

2. A single precision attribute applies 
to a complex variable (unless it is 
declared with the PICTURE attribute) . 
It specifies the precision of both the 
real and the imaginary parts. 

Assumption: 

Default is REAL. 



General format: 

DEFINED base- it em 
Rules for defining: 

1. The INITIAL, the storage class, and 
the EXTERNAL attributes must not be 
specified for the defined item, nor 
may the defined item be a parameter. 
Neither the defined item nor the base 
item may contain VARYING strings. The 
defined item is internal by default. 

2. The base item is a (possibly 
subscripted) scalar, array, or struc- 
ture. It must not have the based 
attribute or the defined attribute. 

3. In references to defined data, the 
bounds and string lengths of the 
defined data are used to determine 
whether the STRINGRANGE and SUBSCRIPT- 
RANGE conditions occur. 

There are three types of defining, sim- 
ple defining, iSUB defining, and string 
overlay defining. 

If the POSITION attribute is specified 
for the defined item, string overlay defin- 
ing is in effect; in this case the base 
item must not contain references to iSUB 
variables. If the subscripts specified in 
the base item contain any references to 
iSUB variables, iSUB defining is in effect. 
If neither iSUB variables nor the POSITION 
attribute is present, then simple defining 
is in effect if the base item and defined 
item match according to the criteria given 
below; otherwise, string overlay defining 
is in effect. 



CONTROLLED (Storage Class Attribute) 



See AUTOMATIC. 



DECIMAL (Arithmetic Data Attribute) 



See BINARY. 



DEFINED (Data Attribute) 



The DEFINED attribute specifies that the 
level one scalar, array, or structure data 
is to occupy some or all of the storage 



A base item and a defined item match if 
the base item when passed as an argument 
would match a parameter which had the 
attributes of the defined item (apart from 
the defined attribute). For this purpose, 
the parameter is assumed to have all 
bounds, string lengths, and area sizes 
specified by asterisks. 



Simple Defining 

Simple defining allows a (possibly 
subscripted) scalar, array, or structure 
item to be accessed by a different name. 
The attributes ALIGNED and UNALIGNED must 
agree between corresponding elements of the 
defined item and base. Array bounds and 
string lengths associated with the defined 
item may differ from those of the base 
item,, although they are subject to certain 
constraints given below. 
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1. Corresponding to any simple defined 
reference, there is an equivalent ref- 
erence to the base item given in the 
DEFINED attribute of the defined item. 
The qualified name in this equivalent 
reference is the name of the base 
item; if the defined reference was 
qualified,, the equivalent reference is 
further qualified by those identifiers 
in the declaration of the base item 
which correspond to the qualifying 
identifiers in the defined reference. 
If the base item names an array the 
equivalent reference contains a sub- 
script corresponding to each dimension 
in the array. The ith subscript in 
the equivalent reference is the ith 
subscript specified in the base item, 
unless an asterisk is specified for 
the base item in the DEFINED attribute 
specification. Wherever an asterisk 
appears, it indicates that the sub- 
script to be used in the equivalent 
reference is the corresponding sub- 
script of the reference to the defined 
item„ 

2. The range specified by a bound pair of 
a defined array must equal or be 
contained within the range specified 
by the corresponding bound pair of the 
base array. 

3. The length of a simple defined string 
must not be greater than the length of 
the corresponding base string. 



ces to the dummy iSUB variables; i is a 
decimal integer constant in the range 1 to 
n where n is the number of dimensions in 
the defined array. The number of sub- 
scripts in the base item must be equal to 
the number of declared dimensions of the 
base array; subscript positions must not be 
specified by asterisks. 

Corresponding to a subscripted iSUB- 
defined reference is an equivalent 
subscripted reference to an element of the 
base array. The qualified name part is 
derived in the way used for simple-defined 
references. However, the subscript list is 
derived differently. The jth subscript in 
the equivalent reference is the jth sub- 
script in the base item, after each iSUB 
variable has been replaced by the integer 
value of the ith subscript in the defined 
reference. 

The attributes of the base array and of 
the defined array must obey the rules for 
valid simple defining. 

An array reference to an iSUB array must 
not be passed as an argument, unless a 
dummy is created. Scalar references to 
iSUB defined arrays may be passed without 
the creation of a dummy. 

Within the expressions in a base item, 
iSUB variables are treated as fixed binary 
variables with the precision given by the 
conversion rules. 



4. The size of a simple defined area must 
be equal to the size of the corres- 
ponding base area. 

Example: 

DECLARE A(10),l X(M,N),2 Y, 2 Z, 
C DEFINED A (3) , 
1 E(M/2) DEFINED X(*,I),2 F, 
2 G; 



C refers to A (3) , 
X.Y(3,I) . 



E.F(3) refers to 



iSUB Defi ning 

The use of iSUB defining allows a trans- 
formation to be applied to the subscripts 
of a defined reference to designate a 
chosen element of the base array. If the 
defined reference does not specify some 
subscript expression, the transformation is 
applied to the subscripts generated during 
the evaluation of the aggregate expression 
or aggregate assignment which contains the 
reference. The defined item and base items 
may be arrays of structures. 

The subscripts in the base item in the 
DEFINED attribute make one or more referen- 



Example: 

DECLARE X(10,10) ,Y(5) 

DEFINED X(2*1SUB, 2+1SUB) ; 

The array Y refers to the even elements of 
the diagonal of X. Thus Y(l) refers to 
X(2,2), Y(2) to X(4,4), etc. 



String Overlay Defining 

String overlay defining is applicable 
only to string and pictured data. It 
enables some or all of the storage asso- 
ciated with a variable to be accessed using 
any suitable string or pictured scalar or 
an aggregate of string and pictured data. 

The POSITION attribute can be used to 
specify the bit or character within the 
base item at which the defined item is to 
begin. Its format is: 

POSITION (decimal-integer-constant) 

It may appear anywhere within the declara- 
tion of the level- one name of the defined 
item. If it is omitted POSITION(l) is 
assumed. The number of bits or characters 
in the defined item, plus n-1 where n is 



Chapter 4: Data Description 55 



the decimal integer constant in the POSI- 
TION attribute, must be not greater than 
the number of bits or characters in the 
base item. 

The defined item and the base item must 
both be of bit class or both be of charac- 
ter class. The bit class consists of: 

a. Unaligned fixed-length bit strings 

b. Unaligned binary numeric data 

c. Aggregates consisting of items a and b 
The composition of the character class is: 

a. Unaligned fixed-length character 
strings 

b. Unaligned decimal numeric data 

c. Unaligned character-string pictured 
data 



Aggregates 
and c 



consisting of items a, b, 



argument without creation of a dummy, 
the corresponding parameter refers to 
the relevant part of that generation 
of the base item that is available 
when the argument is passed; realloca- 
tion of the base within the called 
procedure will not affect the meaning 
of the parameter. 

In a reference to a defined item, all 
subscripts in the reference are evalu- 
ated and converted to integer before 
any of the subscripts in the base item 
are evaluated. Expressions in the 
base item are then evaluated in the 
current environment of the block con- 
taining the declaration of the defined 
item; names used in the base item are 
interpreted in the block containing 
the declaration of the defined item. 



Dimension (Array Attribute) 



All the elements of the base item cov- 
ered by the range of defining and all the 
elements of the defined item must have the 
I UNALIGNED attribute. 

The base item cannot be an aggregate 
parameter, nor can it be an interleaved 
array. An interleaved array is an array 
whose associated storage contains gaps 
occupied by other fields; an array is 
interleaved if, when written in cross- 
section notation, it has an asterisk to the 
right of any subscript expression or has no 
asterisk corresponding to an array of 
structures which contains the array. 

Example : 

DECLARE A CHARACTER (10) , 

B(10) CHARACTER (1) DEFINED A; 
B = '0' ; 



The dimension attribute specifies the 
number of dimensions of an array and the 
bounds of each dimension. The dimension 
attribute either specifies the bounds (only 
the upper bound or both the upper and lower 
bounds) or indicates, by use of an aster- 
isk, that the actual bounds for the array 
are to be taken from elsewhere. 

General format: 

(bound [, bound] ... ) 
where "bound" is: 

{ [lower-bound : ] upper- bound} | * 

and "upper-bound" and "lower-bound" are 
element expressions. 

General rules: 



The assignment to B sets each character in 
A to ' 1 ' . 



Order of Evaluation 

Evaluation proceeds as follows: 

1. The array bounds, string lengths, and 
area sizes of a defined item are 
evaluated upon entry to the block in 
which the item is declared. 

2. A defined reference is treated as a 
reference to some or all of that 
generation of its base item that is 
available at the point of reference. 
When a defined item is passed as an 



The number of bounds specifications 
indicates the number of dimensions in 
the array unless the variable being 
declared is contained in an array of 
structures, in which case it inherits 
dimensions from the containing struc- 
ture. 

The bounds specification indicates the 
bounds as follows: 

a. If only the upper bound is given, 
the lower bound is assumed to be 
1. 

b. On allocation of storage, the 
lower bound must be less than or 
equal to the upper bound. 
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c. An asterisk specifies that the 
actual bounds are to be specified 
in an ALLOCATE statement, if the 
variable is controlled, or are to 
be taken from the argument (other 
than for a controlled parameter) , 
if the variable is a parameter. 
The asterisk notation can be used 
only for parameters and CONTROLLED 
variables. 



General rules: 



DIRECT files must also have the KEYED 
attribute which is implied by DIRECT. 
SEQUENTIAL files may or may not have 
the KEYED attribute. 



The DIRECT and SEQUENTIAL attributes 
cannot be specified with the STREAM 
attribute. 



3. Bounds that are expressions are evalu- 
ated cind converted to integer data 
when storage is allocated for the 
array- Bounds in a parameter attri- 
bute list that are specified by 
expressions are evaluated in the pro- 
logue of the block containing the 
entry attribute that specifies them; 
this does not apply to the bounds in a 
controlled parameter attribute list, 
which are never evaluated. For simple 
parameters, bounds can be only option- 
ally signed decimal integer constants 
or asterisks. 



Assumptions: 

1. Default is SEQUENTIAL for RECORD 
files . 

2. If a file is implicitly opened by an 
UNLOCK statement, DIRECT is assumed; 
if by LOCATE, SEQUENTIAL is assumed. 



ENTRY Attribute 



H.. The bounds of arrays declared STATIC 
must be optionally signed decimal 
integer constants. 

5. The dimension attribute must immedi- 
ately follow the array name (or the 
parenthesized list of names, if it is 
being factored) . Intervening blanks 
are optional. 



The ENTRY attribute specifies that the 
identifier being declared is an entry name. 
It also is used to describe the attributes 
of parameters of the entry point. 

General format: 

ENTRY [ (parameter-attribute- list 

[ , parameter-attribute- list] ,...)] 



6. The asterisk notation cannot be used 
for based variables, but the REFER 
option can be used to specify a bound 
at the time of allocation. 



DIRECT an d SEQUENTIAL (File Description 
Attributes) 

The DIRECT and SEQUENTIAL attributes 
specify the manner in which the records of 
a RECORD file are to be accessed. SEQUEN- 
TIAL specifies that the records are to be 
accessed according to their logical 
sequence in the data set. DIRECT specifies 
that the records of the file are to be 
accessed by use of a key.. Each record of a General rules: 



Each "parameter attribute list" describes 
the attributes of a single parameter; the 
parameter name is not listed, but if the 
parameter is a structure, the level number 
must precede the attributes for each level. 
If a parameter is an array, the dimension 
attribute must be the first specified for 
that parameter; otherwise, attributes may 
appear in any order. Parameter attribute 
lists must appear in the same order as the 
associated parameters. If the attribute of 
any parameter need not be described, the 
absence of the corresponding parameter 
attribute list must be indicated by a 
comma. 



direct file; must, 
associated with it,. 



therefore, have a key 
Either of these attri- 



butes implies the RECORD attribute. 

Note that SEQUENTIAL and DIRECT specify 
only the current usage of the file; they do 
not specify physical properties of the data 
set associated with the file, A SEQUENTIAL 
file may ctctually have keys recorded with 
the data. 

General format: 

SEQUENTIAL I DIRECT 



The ENTRY attribute with associated 
parameter attribute lists must be 
declared for any entry name that is 
invoked within the block if the attri- 
butes of any argument of the invoca- 
tion differ from the attributes of the 
associated parameter. This specifies 
that the compiler is to create the 
necessary dummy arguments. 

The ENTRY attribute, without any par- 
ameter attribute list, is implied by 
the attributes REDUCIBLE, IRREDUCIBLE, 
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OSES, SETS, and RETURNS. The term 
"entry name" is applied to names that 
are explicitly declared with the ENTRY 
attribute, to names that receive the 
ENTRY attribute contextually or by 
implication, and to names with the 
BUILTIN or GENERIC attribute. 

The ENTRY attribute cannot be speci- 
fied with the BUILTIN or GENERIC 
attribute. 

The ENTRY attribute must be specified 
or implied for an entry name that is a 
parameter. 

Expressions used for length, sizes, or 
bounds in an ENTRY attribute specifi- 
cation for non- controlled parameters 
are evaluated upon entry to the block 
to which the declaration of the ENTRY 
attribute is internal. Such evaluated 
ENTRY attributes form part of the 
environment of those blocks internal 
to the block containing the ENTRY 
cittribute specifications, which are 
dynamic descendants of that block. 

Factoring of attributes is not permit- 
ted within parameter attribute lists 
of an ENTRY attribute specification. 

The ENTRY attribute must appear for 
each entry name in a GENERIC attribute 
specification. 

The ENTRY attribute can be declared 
for an internal entry name only within 
the block to which the name is inter- 
nal. 



General format: 

ENVIRONMENT (option- list) 

EVENT (Program Control Data Attribute) 



The EVENT attribute specifies that the 
associated identifier being declared is 
used as an event name. Event names are 
used to investigate the current state of 
tasks or of asynchronous input/output oper- 
ations. They can also be used as program 
switches. 

General format: 

EVENT 

General rules: 

1. An identifier may be explicitly 
declared with the EVENT attribute in a 
DECLARE statement. It may be contex- 
tually declared by its appearance in 
an EVENT option of a CALL statement, 
in a WAIT statement, in a DISPLAY 
statement, or in a record transmission 
statement. 

2. Event names may also have the follow- 
ing attributes: 

Dimension 

Scope (the default is INTERNAL) 

Storage class (the default is 
AUTOMATIC) 



Assumptions : 

The ENTRY attribute can be assumed eith- 
er contextually or by implication. The 
appearance of a name as a label prefix of 
either a PROCEDURE statement or an ENTRY 
statement constitutes an explicit declara- 
tion of that identifier as an entry name. 
No defaults are applied for parameter 
attribute lists unless attributes and/or 
level numbers are specified. If only a 
level number and/or the dimension attribute 
is specified for a parameter attribute 
list, FLOAT,, DECIMAL, CONTROLLED, and REAL 
are assumed. 



ENVIRON MENT (File Description Attribute) 



The ENVIRONMENT attribute is an 
implementation-defined attribute that 
specifies various file characteristics that 
are not part of the PL/I language. 



DEFINED (event names may only be 
defined on other event names) 



3. 



An ev ent 
values: 



variable has two separate 



a. A single bit which reflects the 
completion value of the variable. 
*1' B indicates complete, ' O'B 
indicates incomplete- 

b. A fixed binary value of 
implementation- defined precision 
which reflects the status value of 
the variable. A zero value 
indicates normal. 

The values of the event variable can 
be separately returned by use of the 
COMPLETION and STATUS built-in func- 
tions. 

Assignment of one event variable to 
another causes both the completion and 
status values to be assigned. Conver- 
sion between event variables and any 
other data type is not possible. 
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Event variables may be elements of 
aggregates. Aggregates containing 
event variables may take part in 
assignment, provided that this would 
not require /Conversion to or from 
event data. 

The values of an inactive event varia- 
ble can be set by one of the following 
means : 

a. Use of the COMPLETION pseudo- 
variable, to set the completion 
value 

b. Use of the STATUS pseudo- variable, 
to set the status value 

c. Event variable assignment 

d. By a statement with the EVENT 
option 

The values of an active event variable 
can be set by one of the following 
means : 

a. By a WAIT statement for an event 
variable associated with an 
input/ output event 

b. By the termination of a task with 
which the event variable is 
associated 

c. By closing a file on which an 
input/output operation with an 
event option is in progress 

d. Use of the STATUS pseudo-variable, 
to set the status value 

An event variable may be associated 
with an event, that is, a task or an 
input/output operation, by means of 
the EVENT option on a statement. The 
variable remains associated with the 
event until the event is completed. 
During this period the event variable 
is said to be active. It is an error 
to associate an active event variable 
with another event, or to modify the 
completion value of an active event 
variable by event variable assignment 
or by use of the COMPLETION pseudo- 
variable. For a task, the event is 
completed when the task is terminated 
because of a RETURN, END, or EXIT 
statement; for an input/output event, 
the event is completed during the 
execution of the WAIT for the 
associated event. 



On execution of a CALL statement with 
the EVENT option the event variable, 
if inactive, is set to zero status 
value and to incomplete. The sequence 
of these two assignments is uninter- 
ruptable, and is completed before con- 
trol passes to the named entry point. 
On termination of the task initiated 
by the CALL statement, the event vari- 
able is set complete and is no longer 
active. If the task termination is 
not due to RETURN or END in the task, 
then the event variable status is set 
to 1, unless it is already nonzero. 
The sequence of the two assignments to 
the event variable values is uninter- 
ruptable. 



10. On execution of an input/output state- 
ment with the EVENT option, the event 
variable, if inactive, is set to zero 
status value and to incomplete. The 
sequence of these two assignments is 
uninterruptible and is completed 
before any transmission is initiated 
but after any action associated with 
an implicit opening is completed. An 
input/output event variable will not 
be set complete until either the ter- 
mination of the task, that initiated 
the event or the execution, by that 
task, of a WAIT statement naming the 
associated event variable. The WAIT 
operation delays execution of this 
task until any transmission associated 
with the event is terminated. If no 
input/output conditions are to be 
raised for the operation, the event 
variable is set complete and is no 
longer active. If any input/output 
conditions are to be raised, the event 
variable is set to have a status value 
of 1 and the relevant conditions are 
raised. On normal return from the 
last on-unit entered as a result of 
these conditions, or on abnormal 
return from one of the on-units, the 
event variable is set complete and is 
no longer active. 



11. An event variable declared for use as 
a program switch is never set active. 
Completion and status values must be 
set by the programmer. 



EXCLUSIVE (File Des c ription Attribute) 



It is an error to assign to the 
completion value of an active event 
variable (including an event variable 
in an array, structure, or area) by 
means of an input/output statement. 



The EXCLUSIVE attribute specifies that 
records in a DIRECT UPDATE file may be 
locked by an accessing task to prevent 
other tasks from interfering with an opera- 
tion. 
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General format: 



EXCLUSIVE 



blocks. EXTERNAL specifies that the name 
may be known in other blocks containing an 
external declaration of the same name. 



General rules 



General format: 



1. The EXCLUSIVE attribute can be applied 
to RECORD KEYED DIRECT UPDATE files 
only. 



2. 



3. 



7. 



A READ statement referring to a record 
in an EXCLUSIVE file has the effect of 
locking that record,, unless the READ 
statement has the NO LOCK option, or 
unless the record has already been 
locked by another task; in the latter 
case, the task executing the READ 
statement will wait until the record 
is unlocked before proceeding. 

Execution in the locking task of a 
WRITE, DELETE, or REWRITE statement 
specifying the key of a locked record 
will automatically unlock the record 
at the end of the DELETE, REWRITE, or 
WRITE operation; if the record has 
been locked by another task, the task 
executing the WRITE, DELETE, or REW- 
RITE statement will wait until the 
record is unlocked. While a WRITE, 
DELETE, or REWRITE operation is taking 
place, the record is always locked. 

Automatic unlocking takes place at the 
end of the operation, on normal return 
from any on-units entered because of 
the operation (that is, at the corres- 
ponding WAIT statement when the EVENT 
option has been specified) . 

A locked record can be explicitly 
unlocked by the task that locked it, 
by means of the UNLOCK statement. 



Closing an EXCLUSIVE file unlocks 
the records in the file. 



all 



When a task is terminated, all records 
locked by that task are unlocked. 



Assumptions : 

1. If a file is implicitly opened by the 
UNLOCK statement, it is given the 
EXCLUSIVE attribute- 



2. EXCLUSIVE implies 
DIRECT,, and UPDATE. 



RECORD, KEYED, 



EXTERNAL and INTERNAL (Scope Attributes) 



The EXTERNAL and INTERNAL attributes 
specify the scope of a name. INTERNAL 
specifies that the name can be known only 
in the declaring block and its contained 



EXTERNAL | INTERNAL 

Assumptions: 

INTERNAL is assumed for entry names of 
internal procedures and for variables with 
any storage class. EXTERNAL is assumed for 
file names and entry names of external 
procedures. Programmer-defined condition 
names are assumed to be EXTERNAL. 



FILE (File Description Attribute) 



The FILE attribute specifies that the 
identifier being declared is a file name. 

General format: 

FILE 

Assumptions: 

The FILE attribute can be implied by any 
of the other file description attributes. 
In addition, an identifier may be contex- 
tually declared with the FILE attribute 
through its appearance in the FILE option 
of any input/output statement, or in an ON 
statement for any input/output condition. 



FIXED and FLOAT (Arithmetic Data 
Attributes) 



The FIXED and FLOAT attributes specify 
the scale of the arithmetic variable being 
declared. FIXED specifies that the varia- 
ble is to represent fixed-point data items. 
FLOAT specifies that the variable is to 
represent floating-point data items. 

General format: 

FIXED | FLOAT 

General rule: 

The FIXED and FLOAT attributes cannot be 
specified with the PICTURE attribute. 

Assumptions: 

Undeclared identifiers (or identifiers 

declared only with one or more of the 

dimension, ABNORMAL, NORMAL, DEFINED, SEC- 

I ONDARY, INITIAL, ALIGNED, UNALIGNED, scope, 
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and storage class attributes) are assumed 
to be arithmetic variables with assigned 
attributes depending upon the initial let- 
ter. For identifiers beginning with any 
letter I through N, the default attributes 
are REAL FIXED BINARY with default preci- 
sion. For identifiers beginning with any 
other alphabetic character, the default 
attributes are REAL FLOAT DECIMAL with 
default precision. If BINARY or DECIMAL 
and/or REAL or COMPLEX are specified, FLOAT 
is assumed; however, if a base or mode 
attribute is specified with a precision 
attribute that included a scale factor, 
FIXED is assumed. 



FLOAT (Arithmetic Data Attribute) 



See FIXED. 



GENERIC (Entry Name Attribute) 



The GENERIC attribute is used to define 
a name as a family of entry names, each of 
which is referred to by the name being 
declared. When the generic name is 
referred to, the proper entry name is 
selected, based upon the arguments speci- 
fied for the generic name in the procedure 
reference. 

General format: 

GENERIC (entry-name- declaration 

[ , entry-name-declaration] . . . ) 

General rules: 

1. No other attributes can be specified 
for the name being given the GENERIC 
attribute. 

2. Each "entry name declaration" follow- 
ing the GENERIC attribute corresponds 
to one member of the family, and has 
the form: 

entry-name attribute-list 

3. The "attribute list" of each entry 
name declaration specifies attributes 
of the entry name. It must include 
the ENTRY attribute. It may optional- 
ly have USES, SETS, REDUCIBLE, IRREDU- 
CIBLE, INTERNAL, EXTERNAL, and RETURNS 
attributes. No entry name declaration 
can have the GENERIC attribute, nor 
can it have the BUILTIN attribute. 

4. Each entry name declaration must spec- 
ify attributes and/or level numbers 



for each parameter. An ENTRY declara- 
tion within a GENERIC declaration is 
exactly the same as any other ENTRY 
declaration. Therefore, no other 
entry attribute declaration for the 
same identifier can appear in the same 
block if the entry name appears in a 
GENERIC attribute specification. 



When a generic name is referred to, 
the attributes of the arguments must 
match exactly the list following the 
entry name declaration of one and only 
one member of the family. The ref- 
erence is then interpreted as a ref- 
erence to that member. Thus, the 
selection of a particular entry name 
is based upon the arguments of the 
reference to the generic name. Note 
that no conversion is done for argu- 
ments passed to generic functions. 
Consequently, the precision of a con- 
stant or any other expression must 
match the precision of a parameter. 

The selection of a particular entry 
name is first based on the number of 
arguments in the reference to the 
name. The following attributes are 
then considered in choice of generic 
members : 

Base 

Scale 

Mode 

Precision 

PICTURE 

LABEL (but not label list) 

Number of dimensions (but not 
bounds) 

CHARACTER (but not length) 

BIT (but not length) 

VARYING 

ENTRY (but not parameter descrip- 
tion or other attributes of entry 
names ) 

FILE (but no other FILE attributes) 

ALIGNED 

UNALIGNED 

AREA (but not size) 

OFFSET (but not specified area 
variable) 
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POINTER 



TASK 



EVENT 



7. Generic entry names (as opposed to 
references) may be specified as argu- 
ments to non-generic procedures if the 
invoked entry name is explicitly 
declared with the ENTRY attribute. 
This ENTRY attribute must specify that 
the appropriate parameter is an entry 
name and must specify, by means of a 
further ENTRY attribute, the attri- 
butes of all its parameters. This 
enables a choice to be made of which 
family member is to be passed. 



INITIAL (Data Attribute) 



The INITIAL attribute has two forms. 
The first specifies an initial constant 
value to be assigned to a data item when 
storage is allocated to it. The second 
form specifies that, through the CALL 
option, a procedure is to be invoked to 
perform initialization at allocation. 

General format: 

1. INITIAL (item [ , item] . . . ) 

2. INITIAL CALL entry- name 

T argument- list] 

General rule: 

The INITIAL attribute cannot be given 
for entry names, file names, defined varia- 
bles, structures, parameters, cell names, 
or task or event variables. Note, however, 
that it can be given for an element of a 
structure or one alternative of a cell 
(unless an alternative contains an area, in 
which case only that alternative can be 
initialized) . 

Rules for general format 1: 

1. In this discussion, the term 
"constant" denotes one of the follow- 
ing : 

[+|-] arithmetic-constant 

character- string- constant 

bit-string- constant 

[+ | -] real- constant {+ ]-} imaginary- 
constant 

2. Only one constant value can be speci- 
fied for an element variable; more 



than one can be specified for an array 
variable. A structure variable can be 
initialized only by separate initiali- 
zation of its elementary names, wheth- 
er they are element or array varia- 
bles. 

Constant values specified for an array 
are assigned to successive elements of 
the array in row-major order (final 
subscript varying most rapidly). 

If too many constant values are speci- 
fied for an array, excess ones are 
ignored; if not enough are specified, 
the remainder of the array is not 
initialized. 

Each item in the list can be a con- 
stant, an asterisk denoting no ini- 
tialization for a particular element, 
or an iteration specification. 

The iteration specification has one of 
the following general forms: 

(iteration-factor) constant 

(iteration-factor) (item[ , item] . . . ) 

(iteration-factor) * 

The "iteration factor" specifies the 
number of times the constant, item 
list, or asterisk is to be repeated in 
the initialization of elements of an 
array. If a constant follows the 
iteration factor, then the specified 
number of elements are to be initial- 
ized with that value. If a list of 
items follows the iteration factor, 
then the list is to be repeated the 
specified number of times, with each 
item initializing an element of the 
array. If an asterisk follows the 
iteration factor, then the specified 
number of elements are to be skipped 
in the initialization operation. 

The iteration factor is a scalar 
expression; for STATIC data, it must 
be an unsigned decimal integer con- 
stant. "When storage is allocated for 
the array, the expression is evaluated 
to give an integer that specifies the 
number of iterations. 

A negative or zero iteration factor 
causes no initialization. 



For initialization of a 
if only one parenthe 
expression precedes the 
value, the expression 
to be a string repetiti 
the string; that is, it 
as a part of the speci 
value for a single e 



string array, 
sized element 

string initial 

is interpreted 
on factor for 

is interpreted 
fication of the 
lement of the 
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array. Consequently, to cause ini- 
tialization of more than one element 
of a string array, both the string 
repetition factor and the iteration 
factor must be explicitly stated, even 
if the string repetition factor is 



(1) . For example, consider 
lowing: 



the fol- 



((2) 'A') is equivalent to CAA') 
(for a single element) 

(^MD'A*) is equivalent to 
("A', *A*) (for two elements) 

10. Label constants given as initial 
values for label variables must be 
known within the block in which the 
label variable declarations occur. 
STATIC label variables cannot have the 
INITIAL attribute. 

11. An alternative method of initializa- 
tion is available for elements of 
arrays of non-STATIC statement label 
variables: an element of a label array 
can appear as a statement prefix, 
provided that all subscripts are 
optionally signed decimal integer con- 
stants. The effect of this appearance 
is the initialization of that array 
element to a value that is a con- 
structed label constant for the state- 
ment prefixed with the subscripted 
reference. This statement must be 
internal to the block containing the 
declaration of the array. Only one 
form of initialization can be used for 
a given label array. 

12. General format 1 of the INITIAL attri- 
bute cannot be used in the declaration 
of locator or area variables. 

Rules for general format 2: 

1. The "entry name" and "argument list" 
passed must satisfy the condition 
stated for prologues in Chapter 6, 
"Dynamic Program Structure." 

2. General format 2 cannot be used to 
initialize STATIC data. 

3. General format 2 can be used to ini- 
tialize locator and area variables. 



Examples: 
1. 



DECLARE SWITCH BIT (1) 
INITIAL Cl'B); 



2. DECLARE MAXVALUE INITIAL (99), 

MINVALUE INITIAL (-99) ; 

3. DECLARE A (100,10) INITIAL 

((920)0, (20) ((3)5,9)); 



4. DECLARE TABLE (20,20) INITIAL 
CALL INITIALIZE (X,Y) ; 



5. DECLARE Z(3) LABEL; 



Z(l) 



Z(2) 



Z(3) 



IF X = Y THEN GO TO EXIT; 



A = A + B + C*D; 



A + 10; 



GO TO Z(I) ; 



EXIT: RETURN; 



The third example results in the follow- 
ing: each of the first 920 elements of A is 
set to 0, the next 80 elements consist of 
20 repetitions of the sequence 5,5,5,9. 



In the fourth example, INITIALIZE is the 
name of a procedure that sets the initial 
values of elements in TABLE. X and Y are 
arguments passed to INITIALIZE. 

In the last example, transfer is made to 
a particular element of the array Z by 
giving I a value of 1,2, or 3. 



INPUT, OUTPUT, and UPDATE (File Description 
Attributes) 



The INPUT, OUTPUT, and UPDATE attributes 
indicate the function of the file. INPUT 
specifies that data is to be transmitted 
from external storage to the program. OUT- 
PUT specifies that a new data set is to be 
created, to which data is to be transmitted 
from the program to external storage. 
UPDATE specifies that the data can be 
transmitted in either direction; that is, 
the file is both an input and an output 
file. 

General format: 

INPUT | OUTPUT | UPDATE 
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General rules: 

1. A file with the INPUT attribute cannot 
have the^ PRINT attribute. 

2. A file with the OUTPUT attribute can- 
not have the BACKWARDS attribute. 

3. A file with the UPDATE attribute can- 
not have the STREAM, BACKWARDS, or 
PRINT attributes. A declaration of 
UPDATE for a SEQUENTIAL file indicates 
the update-in-place mode; to access 
such a file, the sequence of state- 
ments must be READ, then REWRITE. 

Assumptions: 

Default is INPUT. The PRINT attribute 
implies OUTPUT. If a file is opened impli- 
citly by a PUT, LOCATE, or WRITE statement, 
OUTPUT is assumed; by a GET or REAL state- 
ment, INPUT is assumed; by a DELETE, 
UNLOCK, or REWRITE statement, UPDATE is 
assumed. The EXCLUSIVE attribute implies 
UPDATE. 



c. 



Access, allocate, modify, or free 
external data. 



Modify, allocate, or free their 
arguments. 



Return 
values 
values. 



inconsistent function 
for the same argument 



d. Maintain any kind of history. 

e. Perform input/output operations. 

f. Return control from the procedure 
by means of a GO TO statement. 

3. An internal procedure is irreducible: 

a. Under any of the conditions listed 
under 2 for external procedures. 

b. If it or any procedures called by 
it access, modify, allocate, or 
free variables declared in an 
outer block. 



INTERNAL (Scope Attribute) 



See EXTERNAL. 



IRREDUCIBLE and REDUC IB LE (Optimization 
Attributes) 



The IRREDUCIBLE and REDUCIBLE optimiza- 
tion attributes, specified for an entry 
name, supply information to the compiler 
concerning the degree of optimization that 
can be accomplished. ' The IRREDUCIBLE 
attribute specifies that a calling sequence 
must be generated for every reference to 
the entry name. The REDUCIBLE attribute 
specifies that references to the entry name 
with arguments of identical values and 
attributes can always be assumed to have 
the same effect. 

General format: 

IRREDUCIBLE | REDUCIBLE 

General Rules: 

1. Either external and internal proce- 
dures can be irreducible or reducible. 
Blocks invoking procedures that are 
reducible must be within the scope of 
a REDUCIBLE, USES, or SETS declaration 
for the invoked entry name. 

2. An external procedure is irreducible 
if it or any procedure invoked by it: 



U. Any procedure to which none of the 
conditions stated in 2 and 3 apply is 
said to be reducible, and its entry 
name should be explicitly declared 
with the REDUCIBLE attribute. The 
scope of the explicit declaration must 
include any invoking block. 

5. An entry name for which the USES 
and/or SETS attributes are specified 
is REDUCIBLE by default. This speci- 
fies that the neighborhood of the call 
can be optimized although the number 
of references to the entry can be 
reduced only if no variable is men- 
tioned in both the USES and the SETS 
list for the entry and if none of the 
variables named in the USES and SETS 
lists has its value changed between 
references. 

Assumptions: 

Default is IRREDUCIBLE. If USES and/or 
SETS is specified, the entry is assumed to 
be definitively reducible. 



KEYED (File Description Attribute) 



The KEYED attribute specifies that the 
options KEY, KEYTO, and KEYFROM may be used 
to access records in the file. These 
options indicate that keys are involved in 
accessing the records in the file. 
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General format: 



KEYED 



General rules: 



1. 



2. 



A KEYED file cannot have the attri- 
butes STREAM or PRINT. 



The KEYED attribute can 
for RECORD files only. 



be specified 



The KEYED attribute must be specified 
for every file with which any of the 
options KEY, KEYTO, and KEYFROM is 
used. It need not be specified if 
none of the options are to be used, 
even though the corresponding data set 
may actually contain recorded keys. 



Assumption: 

The DIRECT 
imply KEYED. 



and EXCLUSIVE attributes 



An entry name cannot be a value of a 
label variable. 

A subscripted label specifying an ele- 
ment of a label array can appear as a 
statement label prefix, if the label 
variable is not STATIC, but it cannot 
appear in an END statement after the 
keyword END. For further information, 
see general rule 12 in the discussion 
of the INITIAL attribute. 

The INITIAL attribute cannot be speci- 
fied for STATIC label variables. 



Length (String Attribute) 



See BIT. 



LIKE (Structure Attribute) 



LABEL (Program Control Data Attribute) 



The LABEL attribute specifies that the 
identifier being declared is a label varia- 
ble and is to have statement labels as 
values. To aid in optimization of the 
object program, the attrib\rte specification 
may also include the values that the name 
can have during execution of the program. 

General format: 



The LIKE attribute specifies that the 
name being declared is a structure variable 
with the same structuring as that for the 
name following the attribute keyword LIKE. 
Substructure names, elementary names, and 
attributes for substructure names and elem- 
entary names are to be identical. 

General format : 

LIKE structure-variable 

General rules: 



LABEL [ (statement-label-constant 

[ t statement- label-constant] . , , ) ] 

General rules: 

1. If a list of statement label constants 
is given, the variable can have as 
values only members of the list. If 
multiple labels are prefixed to a 
statement all of the labels have the 
same value. The label constants in 
the list must be known in the block 
containing the declaration. 

2. The parenthesized list of statement 
label constants can be used in a LABEL 
attribute specification for a label 
array. The label list applies to each 
element of the array. 

3. If the variable is a parameter, its 
value can be any statement label vari- 
able or constant passed as an argu- 
ment. If the argument is a label 
variable, the value of the label par- 
ameter can be any value permitted for 
the label variable that is passed. 



The "structure variable" can be a 
major structure name or a minor struc- 
ture name. It can be a qualified 
name, but it cannot be subscripted. 

The "structure variable" must be known 
in the block containing the LIKE 
attribute specification. The struc- 
ture names in all LIKE attributes are 
associated with declared structures 
before any LIKE attributes are expand- 
ed. For example: 

DECLARE 1 A, 2 C, 3 E, 3 F, 
1 D, 2 C, 3 G, 3 H; 



BEGIN; 

DECLARE 1 A. LIKE D, 1 B LIKE A.C; 



END; 

These declarations result in the fol- 
lowing: 
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1 A LIKE D is expanded to give: 

1 A r 2 C, 3 G, 3 H 

1 B LIKE A.C is expanded to give: 

IB, 3 E, 3 F 

3. Neither the "structure variable" nor 
any of its substructures can be 
declared with the LIKE attribute, nor 
may the "structure variable" have been 
completed by the LIKE attribute. 

4. Neither additional substructures nor 
elementary names can be added to the 
created structure; any level number 
that immediately follows the 
"structure variable" in the LIKE 
attribute specification in a DECLARE 
statement must be algebraically equal 
to or less than the level number of 
the name declared with the LIKE attri- 
bute. 

5. Attributes of the "structure variable" 
itself do not carry over to the creat- 
ed structure. For example, storage 
class attributes do not carry over. 
If the "structure variable" following 
the keyword LIKE represents an array 
of structures, its dimension attribute 
is not carried over. The only ALIGNED 
and UNALIGNED attributes that are car- 
ried over are those explicitly speci- 
fied for substructures and elements of 
the structure variable; the LIKE 
attribute is expanded before the 
ALIGNED and UNALIGNED attributes are 
applied to the contained elements of 
the "structure variable." The other 
attributes of substructure names and 
elementary names, however, are carried 
over; if the attributes that are car- 
ried over contain names, these names 
are interpreted in the block contain- 
ing the LIKE attribute. An exception 
is that this does not apply to the 
INITIAL attribute for any elements of 
a label array that has been initial- 
ized by prefixing to a statement. 

6. If a direct application of the des- 
cription to the structure declared 
LIKE would cause an incorrect continu- 
ity of level numbers (for example, if 
a minor structure at level 3 were 
declared LIKE a major structure at 
level 1) the level numbers are modi- 
fied by a constant before application. 



NORMAL (Op t imization Attribute) 



See ABNORMAL. 



OFFSET and POINTER (Program Control Data 
Attributes) 



The OFFSET and POINTER attributes des- 
cribe locator variables. A locator varia- 
ble can be used in a based variable ref- 
erence to identify a particular generation 
of the based variable. Offset variables 
identify a location relative to the start 
of an area; pointer variables identify any 
location, including those within areas. 

General format: 

POINTER | OFFSET [ ( scalar-area- variable) ] 

General rules: 

1. A pointer variable can be explicitly 
declared in a DECLARE statement, or it 
can be contextually declared by its 
appearance as a pointer qualifier, by 
its appearance in a BASED attribute, 
or by its appearance in a SET option. 

2. An offset variable must be explicitly 
declared. 

3. The value of a pointer variable or 
function uniquely identifies a genera- 
tion. This generation may be accessed 
by using the variable or function as 
the locator qualifier in a reference 
to a based variable whose evaluated 
attributes match those of the genera- 
tion. A value of pointer type may be 
obtained from the built-in functions 
ADDR, NULL, and POINTER. 

4. The value of an offset variable or 
function identifies the position of a 
generation within an area relative to 
the area. This value may be converted 
to a pointer to the generation by 
supplying the area and the offset 
value as arguments to the POINTER 
built-in function. A value of offset 
type may be obtained from the built-in 
functions NULLO and OFFSET. If an 
offset, 0, when associated (e.g., by 
the POINTER built-in function) with an 
area Al, identifies a generation Gl, 
then when Al is assigned to A2 
(possibly by some intervening 
input/output operations) the genera- 
tion G2 in A2 which corresponds to Gl 
may be accessed by the pointer value 
obtained by supplying A2 and to the 
POINTER built-in function. Use of an 
offset to access a generation in an 
area other than the area initially 
used to establish the offset is 
allowed in more cases than the forego- 
ing. The general case is now given, 
using the foregoing nomenclature. 
There can be associated with an area 
an ordered list of the evaluated 
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6. 



7. 



9. 



10. 



attributes of the significant alloca- 
tions (see "The AREA Attribute") made 
in the area. G2 is accessed by POIN- 
TER (A2,0) provided the ordered list 
of evaluated attributes of Al when Gl 
was allocated match the part, up to 
the allocation of G2, of the list of 
evaluated attributes of the signifi- 
cant allocations in A2 when O is used 
to access G2. 



The value of a locator variable can be 
set in any of the following ways: 



a. With the SET option of a READ 
statement 



b. By a LOCATE statement 

c. By an ALLOCATE statement 

d. By assignment of the value of a 
locator variable or function 

Locator variables cannot be operands 
of any operators other than the com- 
parison operators = and t=. 

Locator data cannot be converted to 
any other data type, but pointer can 
be converted to offset, and vice 
versa. 

A locator value can be assigned only 
to a locator variable. When an offset 
value is assigned to an offset varia- 
ble, the area variables named in the 
OFFSET attributes are ignored. 

Locator data cannot be transmitted 
using STREAM input/output. 

Only the INITIAL CALL form of the 
INITIAL attribute is allowed in loca- 
tor declarations. 



Assumptions : 

An undeclared identifier appearing in 
the BASED attribute specification, in a SET 
option, or as a locator qualifier, is 
contextually declared to be a pointer vari- 
able. An undeclared identifier appearing 
in the OFFSET attribute specification is 
contextually declared to be an area varia- 
ble. A variable named in the OFFSET attri- 
bute is given the AREA attribute. 



PICTURE (Data Attribute) 



The PICTURE attribute is used to define 
the internal and external formats of 
character- string, numeric character, and 
numeric bit data and to specify the editing 
of data. Numeric character data is data 
having an arithmetic value but stored 
internally in character form. Numeric 
character data is converted to coded arith- 
metic before arithmetic operations can be 
performed. 

The picture characters are described in 
Appendix 2, "Picture Specification Charac- 
ters." 

General format: 

PICTURE 

' character-picture-specif icat ion' 

' numeric-picture-specification' 

A "picture specification," either character 
or numeric, is composed of a string of 
picture characters enclosed in single quo- 
tation marks. An individual picture char- 
acter may be preceded by a repetition 
factor, which is a decimal integer con- 
stant, n, enclosed in parentheses, to indi- 
cate repetition of the character n times. 
If n is zero, the character is ignored. 
Picture characters are considered to be 
grouped into fields , some of which contain 
subf ields . 

General rules: 

1. The "character picture specification" 
is used to describe a character-string 
data item. Three characters may be 
used: A, indicating that the associat- 
ed position in the data item may 
contain any alphabetic character or a 
blank; X, indicating that the asso- 
ciated postion may contain any charac- 
ter; and 9, indicating that the asso- 
ciated position may contain any deci- 
mal digit or a blank. A character 
picture specification must include at 
least one A or X. Each character 
picture specification is a single 
field with no contained subf ields. 

Example: 

DECLARE ORDER # PICTURE 

' AA(3)9X99X(4)9' ; 



OUTPUT (File Description Attribute) 



See INPUT. 



This declaration specifies that values 
of ORDER# are to be character strings 
of length 13. The string consists of 
two letters, three digits, any charac- 
ter, two digits, any character, and 
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four digits. For example, the charac- 
ter string 'GF342-63-0024' would fit 
this description. 



Editing and suppression characters are 
not allowed in character picture 
specifications- Each picture specifi- 
cation character must represent an 
actual character in the data item. 



The "numeric picture specification" is 
used to describe, for decimal digits, 
a character item that represents eith- 
er an arithmetic value or a character- 
string value, depending upon its use. 
For binary digits, the "numeric 
picture specification" is used to des- 
cribe a bit item that represents eith- 
er an arithmetic value or a bit-string 
value. A numeric picture specifi- 
cation can consist of one or more 
fields, some of which can be divided 
into subfields. A single field is 
used to describe a fixed-point number 
or the mantissa of a floating-point 
number. Either may be divided into 
two subfields, one describing the 
integer portion, the other describing 
the fractional portion. For floating- 
point numbers, a second field is 
required to describe the exponent; it 
cannot be divided into subfields. A 
second field may optionally be used 
with fixed-point numbers to indicate a 
scaling factor. Seven basic picture 
characters can be used in a numeric 
picture specification: 

9 indicating any decimal digit 

1 indicating any binary digit 

2 indicating a binary digit in 2's 
complement notation 

3 indicating a binary digit in l's 
complement notation 

V indicating the assumed location of 
a decimal point. It does not spec- 
ify an actual character in the 
character-string value of the data 
item. The V also indicates the end 
of a subfield of a picture specifi- 
cation. 

K indicating, for floating-point data 
items, that the exponent should be 
assumed to begin at the position 
associated with the picture charac- 
ter following the K. It does not 
specify an actual character in the 
character-string value of the data 
item, either an E or a sign. The K 
delimits the two fields of the 
specification. 



E indicating, for floating-point data 
items, that the associated position 
will contain the letter E to indi- 
cate the beginning of the exponent. 
The E also delimits the two fields. 

In addition to these characters, zero 
suppression characters, editing char- 
acters, and sign characters may be 
included in a numeric picture specifi- 
cation to indicate editing. Editing 
characters are not a part of the 
arithmetic value of a numeric charac- 
ter data item, but they are a part of 
its character- string value. Repeti- 
tion factors are allowed in numeric 
picture specifications. 

A numeric character data item can have 
a decimal or binary base, depending 
upon the digit picture character used. 
Its scale and precision are specified 
by the picture characters. The PIC- 
TURE attribute cannot be specified in 
combination with base, scale, or pre- 
cision attributes. If the mode of the 
numeric character data is COMPLEX, 
however, the COMPLEX attribute must be 
explicitly stated. 

The following paragraphs indicate the 
combinations of picture characters for 
different arithmetic data formats. 

a. Real decimal fixed-point items are 
described in the following general 
form: 

PICTURE ' [9].. . [V] [9] ... 

[F([+|-] integer)]* 

The optional field of the picture 
specification, beginning with the 
letter F together with a parenthe- 
sized, optionally signed decimal 
integer constant, is a scaling 
factor that indicates the location 
of an assumed decimal point if 
that location is outside the 
actual data item. The scaling 
factor has an effect similar to 
the exponent of a floating-point 
number; it indicates that the 
assumed decimal point is "integer" 
places to the right (or left, if 
negative) of the position other- 
wise indicated. 

Sign, editing, and zero suppres- 
sion picture characters can be 
included in a fixed-point specifi- 
cation. The V cannot appear more 
than once in a specification, 
although it may be used in combi- 
nation with the decimal point (.) 
or comma (,) editing characters, 
which cause insertion of a period 
or comma. If no V is included, 
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the decimal point is assumed to be 
to the right of the rightmost 
digit. Only one sign indication 
can be included in the first field 
(the actual sign of the integer in 
a scaling factor is allowed 
additionally) . The specification 
must include at least one digit 
position. 

Example: 

DECLARE A PICTURE '999V99 1 ; 

This specification describes 
numeric character items of five 
digits, two of which are assumed 
to be fractional digits. 

b. Real decimal floating-point items 
are described by the following 
general form: 

PICTURE 

* [9]... [V] [9]... {E|K}9...' 

Both the mantissa field and the 
exponent field must each contain 
at least one digit position. 

Sign, editing, and zero suppres- 
sion picture characters can be 
included in a floating-point 
specification. One sign indica- 
tion is allowed for each field. 
Only one V is allowed, and it can 
appear in the first field only. 
As with fixed-point specifi- 
cations, the V may appear in com- 
bination with the decimal point 
editing character (as .V or V. ) . 
At least one digit must appear in 
the mantissa field. 



binary digit that is a part of a 
binary value in l's complement 
notation. A binary picture speci- 
fication cannot contain a combina- 
tion of the characters 1, 2, and 
3. 



Only one V, representing a point, 
can be present in a picture speci- 
fication, but it may be in any 
position within the first (or 
only) field. When a sign charac- 
ter (S) is specified, the data 
will contain a binary 1, if the 
value is negative, or a zero, if 
the value is positive. The sign 
character can be used only with 
the picture character 1. At least 
one digit must appear in the man- 
tissa field. 

No picture characters other than 
those shown above can be used in a 
real binary fixed-point picture 
specification. 

d. Real binary floating-point items 
are described in the following 
general forms: 

PICTURE ■ [S] (11 ... IV] [1] ... 
KESlltl]... ' 



PICTURE ' [2] 



[V] [2] 



K2[2] 



PICTURE ' [3] . .. IV] [33 .. .K3[3] ... ' 

(See the note in paragraph c, 
above, for an explanation Of the 
picture characters 1, 2, and 3.) 
At least one digit must appear in 
the mantissa field. 



c. Real binary fixed-point items are 
described in the following general 
forms : 

PICTURE ■ [S] [1]-.. [V] tl]... 
[F( [+| -linteger) ] * 

PICTURE ' [2] . . . [V] [2]. . . 

[F( [+ | -] integer) ] ' 

PICTURE ' [3] . . . [V] [3] . . . 

[F ([+ | -] integer)] ' 

Note: The picture character 1 spe- 
cifies that the associated posi- 
tion in the data contains a binary 
digit. The picture character 2 
specifies that the 
position in the data 
binary digit 
binary value 
notation. The picture character 3 
specifies that the associated 
position in the data contains a 



associated 
contains a 
that is a part of a 
in 2's complement 



The sign character allowed to the 
right of the K when the picture 
character 1 is used represents the 
sign of the exponent. Signs are 
not allowed with specifications 
using either the picture character 
2 or the picture character 3. 

Note that the exponent is 
expressed in binary notation and 
that the picture character E is 
not allowed in the picture speci- 
fication nor is an actual E 
allowed to appear in the data. 

No characters other than those 
shown in the format above can be 
used in a binary floating-point 
picture specification. 

Complex numeric character data is 
described using the general form: 

PICTURE 'real-picture* COMPLEX 
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The "real picture" is a specifi- 
cation for either a fixed-point or 
a floating-point data item. The 
single picture specification des- 
cribes both parts of a complex 
number. 

5. The precision of a numeric character 
variable is dependent upon the number 
of digit positions, actual and condi- 
tional. Digit positions can be speci- 
fied by the following characters: 

9 which is an actual decimal digit 
character 

1 which is an actual binary digit 
character 

2 which is an actual binary digit 
character for a 2's complement num- 
ber 

3 which is an actual binary digit 
character for a l's complement num- 
ber 



which are conditional decimal digit 
characters specifying zero suppres- 
sion 



of precision, but they must be counted 
in the number of characters if the 
data item is written as output or 
assigned internally to a character 
string. 

6. A variable representing sterling data 
items can be specified by using a 
numeric picture specification that 
consists of three fields, one each for 
pounds, shillings, and pence. The 
pence field may be divided into two 
subfields. Data so described is 
stored in character format as three 
contiguous numbers corresponding to 
each of the three fields. If any 
arithmetic operations are specified 
for the variable, its value is con- 
verted to coded fixed-point decimal 
representing the value in pence. 
Sterling picture specifications have 
the following form: 

PICTURE 

'G [editing-character-11 . . . 

■M pounds-field 

M [separator-1] . . . 

shillings- field 

M [separator- 2] .. . 
pence-field 



[editing-character-2] . 



which are decimal digit characters 
specifying an overpunch 



Picture specification characters, 
editing characters, and separators can 
be used in any of these fields and are 
discussed in Appendix 2, "Picture 
Specification Characters." 



which are conditional decimal digit 
drifting characters 



The precision (p r q) of a sterling 
numeric character data item is defined 
as follows: 



q = number of fractional digits 
the pence field 



in 



Each but the first conditional digit 
drifting character in a drifting 
string specifies a digit position. A 
conditional digit drifting character 
used alone does not specify a digit 
position. 



Precision of a fixed-po 
(p,q), where p is the n 
positions in the pictur 
and g is the number of 
following V. Precision 
point variable is (p) , 
number of digit posit 
the E or K. Indicated 
characters or insertion 
not participate in th 



int variable is 

umber of digit 

e specification 

digit positions 

of a floating- 

where p is the 

ions preceding 

static editing 

characters do 

e specification 



p = 3+q+ (number of digit positions, 
actual and conditional, in the 
pounds field) 



POIN TER (Program Control D ata Attribute) 



See OFFSET. 



POSITION (Data Attribute) 



See DEFINED. 
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Precision (Arithmetic Data Attribute) 



Assumptions: 



The precision attribute is used to spec- 
ify the minimum number of significant 
digits to be maintained for the values of 
the data items, and to specify the scale 
factor (the assumed position of the binary 
or decimal point) . The precision attribute 
applies to both binary and decimal data. 

Genera 1 format : 

(number-of -digits [ , scale-factor] ) 

The "number of digits" is an unsigned 
decimal integer constant and "scale factor" 
is an optionally signed decimal integer 
constant. The precision attribute specifi- 
cation is often represented, for brevity, 
as (p,q), where p_ represents the "number of 
digits" and g represents the "scale 
factor. " 



The defaults are implementation defined 
and dependent upon the base and scale of 
the variable. 



PRINT (File Description attribute) 



The PRINT attribute specifies that the 
data of the file is ultimately to be 
printed. The PAGE and LINE options of the 
PUT statement and the PAGESIZE option of 
the OPEN statement can be used only with 
files having the PRINT attribute. 

General format: 

PRINT 

General rules: 



General rules: 

1. The precision attribute, if it 
appears, must immediately follow the 
scale (FIXED or FLOAT), base (DECIMAL 
or BINARY) , or mode (REAL or COMPLEX) 
attribute at the same factoring level. 

2. The number of digits specifies the 
number of digits to be maintained for 
data items assigned to the variable. 
The scale factor specifies the number 
of fractional digits. No point is 
actually present; its location is 
assumed. 

3. The scale factor can be specified for 
fixed-point variables only; the number 
of digits can be specified for both 
fixed-point and floating-point varia- 
bles. 

4. When the scale is FIXED and no scale 
factor is specified, it is assumed to 
be zero; that is, the variable is to 
represent integers. 

5. The scale factor can be negative, and 
it can be larger than the number of 
digits. A negative scale factor (-q) 
always specifies integers, with the 
point assumed to be located g places 
to the right of the rightmost actual 
digit. A positive scale factor (q) 
that is larger than the number of 
digits always specifies a fraction, 
with the point assumed to be located g 
places to the left of the rightmost 
actual digit. 

6. The precision attribute cannot be 
specified in combination with the PIC- 
TURE attribute. 



1. The PRINT attribute implies the OUTPUT 
and STREAM attributes. 

2. The PRINT attribute conflicts with the 
RECORD attribute. 



REAL (Arithmetic Data Attribute) 



See COMPLEX. 



RECORD and STREAM ( File Description 
Attributes) 



The RECORD and STREAM attributes specify 
the kind of data transmission to be used 
for the file. STREAM indicates that the 
data of the file is considered to be a 
continuous stream of data items, in charac- 
ter form, to be assigned from the stream to 
variables, or from expressions into the 
stream. RECORD indicates that the file 
consists of a collection of physically 
separate records, each of which consists of 
one or more data items in any form. Each 
record is transmitted as an entity to or 
from a variable or buffer. 

General format: 

RECORD | STREAM 

General rules: 

1. A file with the STREAM attribute can 
be specified only in the OPEN, CLOSE, 
GET, and PUT I/O statements. 
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2. 



3. 



4. 



A file with the RECORD attribute can 
be specified only in the OPEN, CLOSE, 
READ, WRITE, REWRITE, LOCATE, UNLOCK, 
and DELETE I/O statements . 

A file with the STREAM, attribute can- 
not have any of the following attri- 
butes: UPDATE, DIRECT, SEQUENTIAL, 
BACKWARDS, BUFFERED, UNBUFFERED, 
EXCLUSIVE, and KEYED, any of which 
implies RECORD. 



A file with the RECORD attribute 
not have the PRINT attribute. 



can- 



Assumptions : 

Default is STREAM. If a file is impli- 
citly opened by a READ, WRITE, REWRITE, 
LOCATE, UNLOCK, or DELETE statement, RECORD 
is assumed. 



blocks contained within the block 
declaring the attribute and dynamical- 
ly descendant from the block. 

4. For an internal function, the RETURNS 
attribute can be specified only in a 
DECLARE statement that is internal to 
the same block as the function proce- 
dure. 

Assumptions: 

If the RETURNS attribute is not speci- 
fied for an entry name, a RETURNS attribute 
is assumed specifying the attributes REAL, 
FIXED, BINARY with default precision if the 
entry name begins with any of the letters I 
through N; otherwise, the assumed attri- 
butes are REAL, FLOAT, DECIMAL with default 
precision. 



REDUCIBLE (Optimization Attribute) 



SECONDARY Attribute 



See IRREDUCIBLE. 



Function: 



RETURNS (Entry Name Attribute) 



The SECONDARY attribute is used to spec- 
ify that certain data normally does not 
require efficient storage. 

General format: 



The RETURNS attribute may be specified 
in a DECLARE statement for an entry name 
that is used in a function reference within 
the scope of the declaration. It is used 
to describe the attributes of the function 
value returned when that entry name is 
invoked as a function. 

General format: 



SECONDARY 



General rules 



This attribute may be declared only 
for major structures, arrays, and 
variables not contained in structures 
or arrays, i.e., for variables at 
level 1. 



RETURNS (attribute. . . ) 
General rules: 

1. The attributes in the parenthesized 
list following the keyword RETURNS 
must be separated by blanks (except 
for attributes such as precision that 
are enclosed in parentheses) . They 
must agree with the attributes speci- 
fied explicitly or by default in the 
PROCEDURE or ENTRY statement to which 
the entry name is prefixed. 

2. Only arithmetic, string, locator, 
AREA, PICTURE, ALIGNED, and UNALIGNED 
attributes can be specified. 

3. Length attribute specifications are 
evaluated on entry to the block con- 
taining the RETURNS attribute specifi- 
cation. Such evaluated RETURNS attri- 
butes form part of the environment of 



The attribute specifies that where 
possible and necessary, less than nor- 
mally efficient storage may be allo- 
cated to the variable. 



SEQUENTIAL (File Description Attribute) 



See DIRECT. 



SETS and USES (Optimization Attributes) 



The SETS and USES attributes specify, 
for an entry name, the nature of its 
irreducibility due to data manipulation. 
The SETS attribute specifies all of the 
data, including arguments, that may be 
altered, allocated, or freed by the proce- 
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dure, or any procedures called by it. The 
USES attribute specifies all of the data 
(though not the arguments) that is accessed 
by the procedure, or any procedures called 
by i t . 

General format: 

USES (item [,item]...) 

SETS (item [,item]...) 
General rules: 

1. The items of the list following a USES 
or SETS attribute can be as follows: 

a. A decimal integer constant indi- 
cating the parameter position that 
is used or set. Thus, a 1 indi- 
cates the first parameter, a 2 the 
second parameter and so on, with 
the nth parameter being specified 
by an integer constant of value n. 

b. An unsubscripted, non-based data 
variable known in both the block 
containing the declaration and in 
the invoked procedure. An aster- 
isk can be used as an abbreviated 
notation to describe all such 
variables. 

2. When an item appears in a USES list, 
it indicates that the invoked proce- 
dure or procedures invoked by it: 

a. Access that item 

b. Do not assign to that item unless 
it is also specified in a SETS 
attribute 

c. Do not access any other data known 
to the block, except data desig- 
nated by explicit arguments in 
either a CALL statement or a func- 
tion reference. 

3. When an item is specified in a SETS 
list, it indicates that the invoked 
procedure or procedures invoked by it: 

a. Assign to, allocate, or free that 
item 

b. Do not access that item other than 
to reassign, allocate, or free it, 
unless it is also specified in a 
USES attribute, or it is an argu- 
ment 



b. 



c. 



It is assumed that any item not in 
a SETS list, but known both inside 
and outside the procedure, will 
not be altered by the invocation 
of the procedure. It is also 
assumed that any item known both 
inside and outside the procedure, 
but not in a USES list, will not 
be used. 



It is assumed that arguments will 
be used but not set, unless they 
are in a SETS list. 



If a data item represented by a 
variable known outside the proce- 
dure is both used and set within 
the procedure, it must appear in 
both the USES and SETS lists. 



The USES and SETS att 
declared for any entry 
invoke a procedure. The 
declaration must includ 
block. If the ENTRY att 
declared, ENTRY is impli 
USES or SETS is declared 
ing procedure, complet 
must be given about the 
used and/or set by the 
dure. 



ributes may be 
name used to 

scope of this 
e the invoking 
ribute is not 
ed. If either 

in the invok- 
e information 
data that is 
invoked proce- 



6. If an item in a USES or SETS list, as 
described in lb above, is defined on a 
base, and if the base and any other 
items defined on it are known both to 
the invoking and invoked blocks, the 
base and the other items must also be 
specified in the list. 

7. A structure or array variable appear- 
ing in a USES or SETS list implies 
that names of all items contained in 
the structure or array also are in the 
list. However, it does not imply that 
items defined on elements of the 
structure are in the list; these must 
be declared as in rule 6, above. 

8. If a procedure is declared with the 
USES or SETS attribute, or both, and 
is not declared to be IRREDUCIBLE, 
then it is assumed that the procedure 
is not irreducible for any other rea- 
son. If it is (for example, if it 
performs input/output) , then the IRRE- 
DUCIBLE attribute must also be speci- 
fied. 



c. Do not assign to, allocate, or 
free any other data known in the 
block 



STATIC (Storage Clas s Attribute) 



Items appearing in USES or SETS 
indicate the following: 



lists 



See AUTOMATIC. 
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STREAM (File Description Attribute) 



See RECORD. 



TASK (Program Control Data Attribute) 

The TASK attribute describes a variable 
that may be used as a task name, to test or 
control the relative priority of a task. 

General format: 

TASK 

General rules: 

1. An identifier can be explicitly 
declared with the TASK attribute in a 
DECLARE statement, or it can be con- 
textually declared by its appearance 
in a TASK option of a CALL statement. 

2. Task variables can also have the fol- 
lowing attributes : 

a. Dimension 

b. Scope (the default is INTERNAL) 



6. 



state when it is associated with a 
task and must not be freed while it is 
active. An active task variable can- 
not be associated with another task. 

A task variable contains a single 
value, a priority value. This value 
is a fixed-point binary value of pre- 
cision (n,0), where n is 
implementation- defined.. This value 
can be tested and adjusted by means of 
the PRIORITY built-in function and 
pseudo-variable. The built-in 
function returns the priority of the 
task argument relative to the priority 
of the task executing the function. 
Similarly, the pseudo-variable permits 
assignment, to the named task varia- 
ble, of a priority relative to the 
priority of the task executing the 
assignment. 

Structures, arrays, or areas contain- 
ing task variables cannot take part in 
assignment or input /output operations. 

Task data cannot be converted to any 
other data type. 

A task variable cannot be passed as an 
argument if this would require crea- 
tion of a dummy argument. 



c. Storage class (the default is 
AUTOMATIC) 

d. DEFINED (task variables may only 
be defined on other task names) 

e. SECONDARY 



UNALIGNED (Data Attribute) 



See ALIGNED. 



A task variable can 
following contexts: 



be used in the 



UNBUFFERED (File Description Attribute) 



a. In the TASK 
statement 



option of a CALL 



See BUFFERED. 



b. As an argument of the ALLOCATION 
built-in function and of the 
PRIORITY psetido-variable or built- 
in function. 

c. As an argument in a procedure. 



UPDATE (File Description Attribute) 



See INPUT. 



d. As a parameter in a PROCEDURE or 
ENTRY statement or in the 
parameter attribute list of an 
ENTRY attribute 



USES (Optimization Attribute) 



In an ALLOCATE or FREE statement 



See SETS. 



A task variable may be associated with 
a task by specifying the task name in 
the TASK option of a CALL statement. 
A task variable is said to be active 
if its associated task is active. A 
task variable must be in an allocated 



VARYING (String Attribute) 



See BIT, 
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CHAPTER 5: PROCEDURES, FUNCTIONS, AND SUBROUTINES 



PARAMETERS 



The PROCEDURE statement heading a given 
procedure; and defining the primary entry 
point to the procedure may specify a list 
of para m eter s . 

One or more ENTRY statements may also be 
used in the procedure to define secondary 
entry points. Like the heading statement 
of the procedure, each of the ENTRY state- 
ments must have at least one label to serve 
as an entry name for that point, and each 
may specify a list of parameters. Paramet- 
er lists for different entry points to a 
procedure need not be the same. 

A parameter may be a scalar, array, or 
structure name that is unqualified and 
unsubscripted, or it may be a file paramet- 
er or an entry parameter. Parameters must 
be level 1 identifiers, i.e., they cannot 
be members of structures . 



specified either by asterisks or decimal 
integer constants which, for bounds, may be 
signed. 



Example: 
SBPRIM: 



SBSEC: 



PROCEDURE (X, Y, Z); 

DECLARE (X, Y, A, B) FIXED, Z 

FLOAT ; 
A = X-l; B = Y+l; 
GO TO COMMON; 
ENTRY (X, Z); 
A = X-2; B = X-3; 
COMMON: Z = A**2+A*B+B**2 ; 
END SBPRIM; 



In this example, the procedure may be 
entered at its primary entry point SBPRIM, 
where the parameter list is (X, Y, Z) r or 
at its secondary entry point SBSEC, where 
the parameter list is (X, Z) . 



A file parameter may be used within a 
procedure wherever a file name may be used; 
an entry parameter may be used wherever an 
entry name may be used. 

A reference within a procedure to a 
parameter produces an undefined result if 
the entry point at which the procedure is 
invoked does not include that parameter in 
its parameter list. 

Parameters are explicitly declared by 
their appearance in a PROCEDURE or ENTRY 
statement, but attributes can be supplied 
in a DECLARE statement internal to the 
procedure. If attributes are not supplied 
in a DECLARE statement, default arithmetic 
attributes are applied, depending upon the 
initial letter of the identifier. 

Parameters cannot be declared with the 
storage class attributes STATIC, AUTOMATIC, 
or BASED or with the DEFINED attribute, but 
a parameter may be used as a base identifi- 
er in a DEFINED attribute for simple and 
iSUB defining. 

A parameter may have the CONTROLLED 
storage class attribute. In this case, the 
associated argument must also have the 
CONTROLLED attribute with no dummy created 
for that argument. 

Scope attributes cannot be declared for 
parameters; internal is always assumed. 
Except for controlled parameters, any 
bounds, lengths , and area sizes must be 



PROCEDURE REFERENCES 



At any point in a program where an entry 
name for a given procedure is known, the 
procedure may be invoked by a procedure 
reference , which has the form: 

entry-name [(argument [ , argument] ...)] 

The number of arguments (possibly zero) 
in the procedure reference must be equal to 
the number of parameters in the list for 
the entry point denoted by the entry name. 

The procedure invoked by the procedure 
reference may be an external or an internal 
procedure. If it is an internal procedure, 
the block to which the entry name is 
internal must be active at the time of 
invocation of the procedure. 

When a procedure reference invokes a 
procedure, each argument specified in the 
reference is associated with its corres- 
ponding parameter in the list for the 
denoted entry point, and control is passed 
to the procedure at the entry point. 

When a procedure becomes inactive, the 
association between arguments and paramet- 
ers is terminated. 

There are two distinctly different uses 
for procedures, determined by one of two 
contexts in which a procedure reference may 
appear: 
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A procedure reference may appear as an 
operand in an expression. In this 
case, the reference is said to be a 
function reference , and the procedure 
is invoked as a function procedure , or 
simply a function . 

A procedure reference may appear fol- 
lowing the keyword CALL, either in a 
CALL statement or in a CALL option. 
In this case, the reference is said to 
be a subroutine reference , and the 
procedure is invoked as a subroutine 
procedur e, or simply a subroutine . 



family and the attributes of all of the 
parameters for each member (different mem- 
bers must have different parameter attri- 
bute lists). Then any reference appearing 
in the scope of this declaration and using 
the declared generic name as an entry name 
will result in the use of that member of 
the declared family with the parameter 
attribute lists that match the arguments in 
the reference. 



BUILT-IN FUNCTIONS 



FUNCTION REFERENCES AND PROCEDURES 



When a function reference appears in an 
expression, the procedure is invoked. The 
procedure is then executed, using the argu- 
ments, if any, specified in the function 
reference. The result of this execution is 
the required value, which is passed with 
return of control back to the point of 
invocation. This returned value is then 
used to evaluate the expression. 

The procedure invoked by a function 
reference normally will terminate execution 
with a statement of the form 
RETURN (expression), where expression is a 
scalar expression of arithmetic, character- 
string, bit-string, locator, or area type. 
It is the value of this expression that 
will be returned as the function value. 
The PROCEDURE or ENTRY statement at the 
invoked entry point may specify data 
attributes for the function value. Just 
prior to return, the expression is evaluat- 
ed, and, before being passed back, the 
value is converted, if necessary, to con- 
form to these attributes, or, if the attri- 
butes are not specified, to the default 
attributes implied by the entry name. 



GENERIC ENTRY NAMES 



Besides function references to proce- 
dures written by the programmer, a function 
reference may invoke one of a comprehensive 
set of built-in functions . 

The set of built-in functions is an 
intrinsic part of PL/I. It includes not 
only the commonly used arithmetic functions 
but also functions for manipulating strings 
and arrays, as well as other necessary or 
useful functions related to special facili- 
ties provided in the language. The iden- 
tifiers corresponding to the built-in func- 
tion names are not reserved; any such 
identifier can be used by the programmer 
for other purposes. The complete list of 
these functions and their descriptions can 
be found in Appendix 1. 

Each built-in function, whether or not 
it is generic, requires a specified number 
of arguments. For some built-in functions 
only a minimum is specified; additional 
arguments are optional. For others, a 
maximum is specified. 

Each of the built-in functions that is 
not generic has only a single member. When 
a reference is made to one of these func- 
tions, any arguments whose attributes do 
not match the attributes required by that 
function are converted to the appropriate 
form before the function is invoked. The 
characteristics of the value returned are 
determined by the function. 



A generic entry name designates a family 
of entry points with a single name. A 
reference to a generic name causes the 
selection of a certain member of the fami- 
ly, depending upon the attributes of the 
arguments. The characteristics of the 
value returned depend upon the member that 
is selected. 



Unlike programmer- specif ied functions, 
which always return a scalar value, there 
are many built-in functions that may return 
an array or structure value when array or 
structure expressions are used in certain 
of their argument positions. This facility 
is useful in array or structure expres- 
sions. 



Generic names may be built-in (see 
below) or specified by the programmer, who 
may, by means of the GENERIC attribute, 
define a name to be a generic procedure 
name. The GENERIC attribute requires a 
list of all of the entry names of the 



SUBROUTINE REFERENCES AND PROCEDURES 



When a procedure is invoked by the 
execution of a CALL statement or a CALL 
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option, the initial action is the same as 
if the procedure were invoked as a func- 
tion: the arguments in the procedure ref- 
erence, if any, are associated with the 
parameters, and control is passed to the 
procedure; at the denoted entry point. No 
value is returned by a procedure invoked in 
this way. 

A procedure may be terminated in one of 
the following ways: 

1. Control reaches a RETURN statement for 
the procedure. When executed, this 
statement normally returns control to 
the first executable statement logi- 
cally following the invoking state- 
ment. 

2. Control reaches an END statement for 
the procedure. The effect is as in 
case 1. 

3. Control reaches a GO TO statement in 
the procedure that transfers control 
out of the procedure. In this case, 
control will go to the designated 
statement. 



This implies that the parameter X is 
used as a fixed-point variable with certain 
default data attributes, Y is used as an 
entry name, and Z is a statement label 
variable in the body of the procedure. 
Then if SUB is invoked in the program by 
the statement: 



CALL SUB (R*S, CALC, L5) ; 



it is then necessary that: 



1. The expression R*S has all the data 
attributes of the parameter X (unless 
SUB is described by an ENTRY attri- 
bute; see below) . 



2. CALC be an entry name. 

3. L5 be a statement-label designator. 



4. 



Control reaches an EXIT or STOP state- 
ment. 



EVALUATION OF ARGUMENT SUBSCRIPTS 



THE ARGUMENTS IN A PROCEDURE REFERENCE 



When a procedure is invoked, a relation- 
ship is established between the arguments 
of the invoking statement and the paramet- 
ers of the invoked entry point. A paramet- 
er itself may be passed as an argument. 

In general, the arguments in a procedure 
reference may be any of the following: 

1. Expressions 

2. Entry names (programmer-defined) 

3. Mathematical built-in function names 
(see Appendix 1) 

U. Filenames 

The attributes of each argument in a 
procedure: reference must, in general, match 
the attributes of the corresponding param- 
eter at the named entry point. 

For example, assume that the procedure 
SUB in a program is defined by: 

SUB: PROCEDURE (X, Y, Z); 

DECLARE X FIXED, Y ENTRY, Z LABEL; 



END SUB; 



When an argument is a subscripted varia- 
ble, the subscripts are evaluated before 
invocation. The specified element is then 
passed as the argument. Subsequent changes 
in the subscript during the execution of 
the invoked procedure have no effect upon 
the corresponding parameter. 



USE OF DUMMY ARGUMENTS 



A constructed dummy argument containing 
the argximent value is passed to a. procedure 
if the argument is one of the following: 

an arithmetic, string, or label con- 
stant 
an expression involving operators 
an expression in parentheses 
an expression whose data attributes 
disagree with the data attributes 
declared for the parameter in an 
ENTRY attribute specification in 
the invoking block 
a function reference with arguments 

In all other cases the argument as it 
appears is passed. The parameter becomes 
identical with the passed argument. If a 
dummy is created, changes to the parameter 
are not reflected back in the original 
argument . 
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ENTRY NAMES AS ARGUMENTS 



Consider the following example 



When an entry name is specified as an 
argument of a procedure, one of the follow- 
ing applies: 

1. If the entry name argument, call it M, 
is specified with an argument list of 
its own, it is recognized as a func- 
tion reference; M is invoked, and the 
value returned by M effectively repla- 
ces M and its argximent list in the 
containing argument list. 

2. If the entry name argument appears 
without an argument list, but within 
an operational expression or within 
parentheses, then it is taken to be a 
function reference with no arguments. 
For example: 

CALL A( (B)) ; 

This passes, as the argument to proce- 
dure A, the value returned by the 
function procedure B. 

3. If the entry name argument appears 
without an argument list and neither 
within an operational expression nor 
within parentheses, the entry name 
itself is passed to the function or 
subroutine being invoked. In such 
cases, the entry name is not taken to 
be a function reference, even if it is 
the name of a function that does not 
require arguments. For example: 

CALL A(B) ; 

This passes the entry name B as an 
argument to procedure A. 

There is an exception to this rule, 
however: if an identifier is known as 
an entry name and apnears as an argu- 
ment and if the parameter attribute 
list for that argument specifies an 
attribute other than an entry name, 
the entry name will be invoked and its 
returned value passed. For example: 

A: PROCEDURE; 

DECLARE B ENTRY, 

C ENTRY (FLOAT) ; 



X = C(B) ; 



END A; 

In this case, B is invoked and its 
returned value is passed to C. 



CALLP: PROCEDURE; 

DECLARE RREAD ENTRY, 

SUBR ENTRY (ENTRY, FLOAT, 
FIXED BINARY, LABEL) ; 



GET LIST (R,S) ; 



CALL SUBR (RREAD, SQRT(R), S, 
LABI) ; 



LABI: CALL ERRT(S) ; 



END CALLP; 



SUBR: PROCEDURE (NAME, X, J, TRANPT); 

DECLARE NAME ENTRY, TRANPT LABEL; 



IF X > J THEN CALL NAME (J) ; 
ELSE GO TO TRANPT; 



END SUBR; 

In this example 
SUBR, and RPEAD^ar 
In CALL?, both RREAD 
ly declared to have 
(Actually, the exp 
SUBR is used princip 
mation about the 
parameters of SUBR.) 
specified in the 
These arauments are 



, assume that CALLP, 

e external entry names. 

and SUBR are explicit- 

the ENTRY attribute. 

licit declaration for 

ally to provide infor- 

characteristics of the 

Four arguments are 

CALL SUBR statement. 

interpreted as follows: 



The first argument, RREAD, is recog- 
nized as an entry name (because of the 
ENTRY attribute declaration). This 
argument is not in conflict with the 
first parameter as specified in the 
parameter attribute list in the ENTRY 
attribute declaration for SUBR in 
CALLP. Therefore, since RREAD is rec- 
ognized as an entry name and not as a 
function reference, the entry name is 
passed at invocation. 

The second argument, SQRT(R), is rec- 
ognized as a function reference 
because of the argument list accom- 
panying the entry name. SQRT is 
invoked, and the value returned by 
SQRT is assigned to a dummy argument, 
which effectively replaces the ref- 
erence to SQRT. The attributes of the 
dummy argument agree with those of the 



78 



second parameter, as specified in the 
parameter attribute list declaration. 
When SUBR is invoked, the dummy argu- 
ment is passed to it. 

3. The third argument, S, is simply a 
decimal floating-point element varia- 
ble. However, since its attributes do 
not agree with those of the third 
parameter, as specified in the param- 
eter attribute list declaration, a 
dummy argument is created containing 
the value of S converted to the attri- 
butes of the third parameter. When 
SUBR is invoked, the dummy argument is 
passed. 

4. The fourth argument, LABI, is a 
statement- label constant. Its attri- 
butes agree with those of the fourth 
parameter. But since it is a con- 
stant, a dummy argument is created for 
it. When SUBR is invoked, the dummy 
argument is passed. 

In SUBR, four parameters are explicitly 
declared in the PROCEDURE statement. If no 
further explicit declarations were given 
for these parameters, arithmetic default 
attributes would be supplied for each. 
Therefore, since NAME must represent an 
entry name, it is explicitly declared with 
the ENTRY attribute, and since TRANPT must 
represent a statement label, it is expli- 
citly declared with the LABEL attribute. X 
and J are arithmetic, so the defaults are 
allowed to apply. 

Note that the appearance of NAME in the 
CALL statement does not constitute a con- 
textual declaration of NAME as an entry 
name. Such a contextual declaration can be 
made only if no explicit declaration 
applies, and the appearance of NAME in the 
PROCEDURE statement of SUBR constitutes an 
explicit declaration of NAME as a paramet- 
er. If the attributes of a parameter are 
not explicitly declared in a complementary 
DECLARE statement, arithmetic defaults 
apply. Consequently, NAME must be expli- 
citly declared to have the ENTRY attribute; 
otherwise, it would be assumed to be a 
binary fixed-point variable, and its use in 
the CALL statement would result in an 
error. 



USE OF THE ENTRY ATTRIBUTE 



If an ENTRY attribute specification with 
parameter attribute lists is supplied for 
the invoked entry name, each argument is 
converted, if necessary, to conform to the 
attributes specified for its corresponding 
parameter in the ENTRY attribute specifi- 
cation. String lengths and area sizes are 
considered to match in two circumstances 
only: if the length or area size is speci- 
fied by an asterisk in the ENTRY attribute 
or if declarations for both the argument 
and the parameter contain the same decimal 
integer constant. 

Dummy arguments are allocated immediate- 
ly before invocation of the procedure and 
freed upon return. 

The asterisk notation may be used in the 
ENTRY attribute to specify that for 
strings, areas, or arrays, the argument- 
length, size, or bounds is to be assumed 
for the parameter. 

Example: 

A: PROCEDURE; 

DECLARE B ENTRY (FIXED,), 
(C,D) FLOAT; 



CALL B(C,D) ; 



END A; 

B: PROCEDURE (P,Q); 

DECLARE P FIXED, Q FLOAT; 



END B; 

The specification of the ENTRY attribute 
in procedure A indicates that B has two 
parameters, the first with attribute FIXED 
and the second, indicated by the comma, 
with attributes that match those of the 
argument. However, the arguments C and D 
both have the FLOAT attribute. Since C is 
to be fixed-point when it is passed to 
procedure B, a dummy argument is construct- 
ed by converting C from floating-point to 
fixed-point. This dummy argument is then 
passed to B. 



If an ENTRY attribute without parameter 
attribute lists is specified for an iden- 
tifier, it indicates only that the iden- 
tifier is an entry name. In this case, the 
argument and parameter attributes must 
agree. A contextual declaration of an 
identifier as an entry name supplies an 
ENTRY attribute specification of this type. 



CORRESPONDENCE OF PARAMETERS AND ARGUMENTS 



If a parameter of an invoked entry is a 
scalar , the argument must be a scalar 
expression. The data attributes of the 
argument or dummy argument must agree with 
the corresponding attributes of the param- 
eter. If a constant is used to specify the 
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length of a string parameter or the size of 
an area parameter in the invoked procedure, 
the value of the length or size expression 
of the argument must agree with the con- 
stant. 

If a parameter of an invoked entry is an 
array , the argument in general must be an 
array expression with identical bounds and 
dimensionality. The argument may be a 
scalar expression so long as an ENTRY 
attribute is given for the invoked entry, 
specifying the dimension attribute and 
bounds expressions for the relevant param- 
eter. In this case, a dummy array argument 
will be constructed where the value of each 
element of the array is the value of the 
scalar expression. The data attributes of 
the argument must agree with those of the 
parameter if a dummy has been created. If 
constants are used to specify the bounds of 
the parameter in the invoked procedure, the 
values of the bounds of the array argument 
must agree with the values of these con- 
stants. ALIGNED and UNALIGNED attributes 
must agree. 

If a parameter is a structure , the 
argument in general must be a structure 
expression. When a structure description 
is given for a parameter in an ENTRY 
attribute specification, a scalar expres- 
sion may be specified as the corresponding 
argument. A dummy structure argument will 
then be constructed where the value of each 
element of the structure is the value of 
the scalar expression. The data attributes 
of the elements of the structure argument 
must match those of the associated paramet- 
er as specified in the invoked procedure. 
The relative structuring of the argument 
and the parameter must be the same, 
although the level numbers need not be 
identical. ALIGNED and UNALIGNED attri- 
butes must agree. Contained strings and 
arrays with lengths, areas, and bounds 
specified by constants must agree as des- 
cribed above. 

If a parameter is an area , the corres- 
ponding argument must be an area expres- 
sion. If its size is declared by a con- 
stant in the invoked procedure, the corres- 
ponding argument must have the same size. 
This applies to areas in arrays and struc- 
tures. 

If a parameter is a cell , the corres- 
ponding argument must be a cell variable 
whose relative structuring is the same as 
that of the parameter, although the level 
numbers need not be identical. This also 
applies to cells in arrays and structures. 

If a parameter is a scalar- label varia- 
ble, the argument must be a scalar- label 
expression. If a parameter is an array- 
labe l variable , the argument in general 



must be an array-label variable. If an 
ENTRY attribute is given for the invoked 
entry in the invoking procedure, and if the 
appropriate parameter attribute list 
specifies that the parameter is a label 
array, then the argument may also be a 
scalar-label expression; a dummy label 
array argument will be suitably construct- 
ed. A dummy argument is always constructed 
when the argument is a label constant. 

If the argument is a statement label 
constant, this statement label constant is 
qualified by an identification of the cur- 
rent invocation of the block containing the 
label. Any reference to the parameter is a 
reference to the statement label in that 
environment. 

If a parameter is an entry parameter , 
the corresponding argument must be an 
unparenthesized entry name. If an ENTRY 
attribute specification is given for the 
invoked entry in the invoking procedure, 
and if the appropriate parameter attribute 
list specifies that the parameter is an 
entry name and specifies further (nested) 
parameter lists, then the argument may also 
be a generic name or the name of a mathema- 
tical generic built-in function; the alter- 
native whose parameter attribute list 
matches the nested parameter list is 
selected and passed to the parameter. 

If a parameter is a pointer- variable , 
the corresponding argument must be a loca- 
tor expression. If the argument is an 
offset variable its value is converted to 
pointer using the area named in its offset 
attribute; this offset attribute must spec- 
ify an area variable, and the parameter 
must be described as a pointer in the entry 
attribute. If the argument is an offset 
function reference, its value is converted 
to pointer using the area variable named in 
the offset attribute within the RETURNS 
attribute in the declaration of the 
function's name; this offset attribute must 
specify an area variable, and the parameter 
must be described as a pointer in the entry 
attribute. 

If a parameter is an offset-variable , 
the corresponding argument must be a loca- 
tor expression. If the argument is a 
pointer expression, an offset-attribute 
specifying an area variable must be used to 
describe the parameter in the entry attri- 
bute; this area variable is used to convert 
the pointer expression to area. If the 
argument is an offset-expression the area 
variable, if any, associated with the argu- 
ment and the area variable, if any, in the 
offset attribute in the entry attribute 
have no effect on argument passing; if 
different variables are specified this does 
not, of itself, cause the creation of a 
dummy . 
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If a parameter is a file parameter , the 
argument must be a file name or parameter. 
With the exception of FILE, any file attri- 
butes declared for the parameter are 
ignored. 



ALLOCATION OF PARAMETERS 



A simple parameter, that is, one that is 
not controlled, may correspond to an argu- 
ment of emy storage class; if more than one 
generation of the argument exists, however, 
the parameter is synonymous only with the 
generation existing at the point of invoca- 
tion. At least one generation must exist. 
A controlled parameter, however, always 
must be presented with a controlled argu- 
ment; the argument must be an unsubscripted 
name of controlled data that is not an 
element of a structure. 

When a procedure is invoked without a 
task option, the parameter is synonymous 
with the entire allocation stack of the 
controlled variable. Thus each reference 
to the pcirameter is a reference to the 
current generation of the associated argu- 
ment. A controlled parameter may be allo- 
cated and/or freed in the invoked proce- 
dure, thus manipulating the allocation 
stack of the associated argument. 



When a procedure is attached as a task, 
only the current generation of a controlled 
argument is available to the new task. The 
new task can allocate and free subseguent 
generations, but it cannot free the genera- 
tion passed to it. 

If storage has not been allocated for an 
argument passed to a controlled parameter 
declared with the asterisk notation, expli- 
cit bounds or length must be declared in an 
ALLOCATE statement executed before another 
reference to the parameter in the invoked 
procedure. 



THE SPECIAL PROCEDURE OPTION RECURSIVE 



In the PROCEDURE statement for a given 
procedure, certain special options that 
characterize the procedure itself may be 
specified. (For a complete discussion of 
these options, see "The PROCEDURE State- 
ment.") One of these, which has particular 
significance, is the option RECURSIVE. 
When a procedure of a program is re- 
activated in a task while it is still 
active in the same task (see "Activation 
and Termination of Blocks"), the procedure 
is said to be used recursively . Any 
procedure used recursively during program 
execution must be specified with the RECUR- 
SIVE option. 
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CHAPTER 6: 



DYNAMIC PROGRAM STRUCTURE 



PROGRAM CONTROL 



Every program, when it is being execut- 
ed, has a control that determines the order 
of execution of the statements. For a 
discussion of their order see "Sequence of 
Control," in Chapter 8. 

Execution of the program is initiated by 
the operating system invoking the initial 
procedure at some entry point. Some 
implementations may require that this entry 
point be identified by the OPTIONS option 
in the PROCEDURE statement of the initial 
procedure. This procedure cannot have CON- 
TROLLED parameters. 



PROLOGUES 



In making these items available, the 
prologue may need to evaluate expressions 
concerned with automatic and defined data. 
Such expressions may occur specifying 
lengths, bounds, sizes of areas, and itera- 
tion factors, as well as arguments in a 
CALL option. Expressions of these kinds 
also occur in RETURNS and ENTRY attribute 
specifications. These expressions may 
depend on items of 1 , 2, 3 or 1. They may 
also be dependent on items 5, 6, and 7 
under the following circumstances: If an 
item is referred to in an expression and 
the allocation or initialization of a sec- 
ond item depends on that expression, then 
that first item must in no way be dependent 
on the second item for its own allocation 
and initialization. Further, the first 
item must in no way be dependent on any 
other item that so depends on the second 
item. 



On entering a block, certain initial 
actions are performed, e.g., allocation of 
storage for automatic variables. These 
initial actions constitute the prologue . 

At the beginning of the prologue, the 
following items are available for computa- 
tion: 



1. 



2. 



The established generation of automat- 
ic and defined variables declared out- 
side the block and known within it. 



Static variables known within 
block. 



the 



Example: 

The following is illegal: 

DECLARE (A(M) INITIAL (1), 

M INITIAL ((A(I))3)) AUTO; 

The evaluations must not invoke irredu- 
cible functions. The entry invoked with 
the INITIAL CALL attribute may be irreduci- 
ble only in that it sets the data being 
initialized. The sequence in which the 
evaluations refer to any abnormal data is 
not defined. 



3. Controlled and based variables known 
within the block, but only those gen- 
erations that can be accessed by the 
task executing the block. Note that, 
for controlled variables, this means 
only the most recent generation allo- 
cated in the task or inherited by the 
task. 

4. Arguments passed to the block. 

The prologue makes available for compu- 
tation all the other variables known within 
the block as follows: 

5. Automatic variables declared in the 
block. 

6. Defined variables declared within the 
block. 

7. Entry and generic names declared with- 
in the block. 



ACTIVATION AND TERMINATION OF BLOCKS 



A begin block is said to be activated 
when control passes through the BEGIN 
statement for the block. A procedure block 
is said to be activate d when the procedure 
is invoked at any one of its entry points. 

During certain time intervals of the 
execution of a program, a block may be 
active . A block is active if it has been 
activated and is not yet terminated . 

There are a number of ways in which a 
block may be terminated. These are implied 
by the following rules: 

1. A begin block is terminated when con- 
trol passes through the END statement 
for the block. 
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A procedure block is terminated on 
execution of a RETURN statement or an 
END statement for the block. (The END 
statement implies a RETURN statement; 
see Chapter 8.) 

A block is terminated on execution of 
a GO TO statement contained in the 
block which transfers control to a 
point not contained in the block. Any 
intervening blocks are also terminat- 
ed. 

The execution of a STOP statement 
causes termination of the major task. 

The execution of an EXIT statement 
causes terznination of the task con- 
taining the statement and all tasks 
attached by this task. Thus, all 
blocks corresponding to these tasks 
are terminated. 

When a block B is terminated, all of 
the dynamic descendants of B also are 
terminated. 



even if Bl is a statement, it can be 
regarded as a block, and this case is 
dynamically similar to case 1 or case 
3 above.) 

In any of the above cases, while Bl is 
active, it is said to be an an immediate 
dynamic descendant of B. 

Block Bl may itself have an immediate 
dynamic descendant B2, etc., so that a 
chain of blocks (B, Bl, B2,...) is creat- 
ed, where, by definition, all of the blocks 
are active. In this chain, each of the 
blocks Bl , B2 , etc., is said to be a 
dyna mic descendant of B . 

It is important for the programmer to 
note that the termination of a given block 
may automatically imply the termination of 
other blocks and that these blocks need not 
necessarily be contained in the given 
block; storage for all AUTOMATIC variables 
declared in these blocks will be released 
at the time of termination (see "Storage 
Classes") . 



When a block is terminated, all active 
subtasks created during the execution 
of that block are terminated. 



DYNAMIC ENCOMPASSING 



DYNAMIC DESCENDANCE 



If a block B is activated and control 
stays at points internal to B until B is 
terminated, no other blocks can be activat- 
ed while B is active. (This discussion is 
not applicable to the multi-task, or asyn- 
chronous, mode of operation, which implies 
more than a single control.) 

However, another block, Bl, may be acti- 
vated from a point internal to block B 
while B still remains active. This is 
possible only in the following cases: 

1. Bl is a procedure block immediately 
contained in B (the label of Bl is 
internal to B) and reached through a 
procedure reference. 

2. Bl is a begin block internal to B and 
reached through normal flow. 

3. Bl is a procedure block not contained 
in B and reached through a procedure 
reference. (Bl, in this case, may be 
identical to B, i.e., a recursive 
call. However, it is to be regarded 
dynamically as a different block. ) 

U. Bl is a begin block or a statement 
specified by an ON statement (see "The 
ON Statement"), and reached through an 
interrupt. (For present purposes, 



If block B is a dynamic descendant of 
block A, then block A dynamically encom- 
passes block B, and block B is dynamically 
encompassed by block A. 



THE ENVIRONMENT OF A BLOCK ACTIVATION 



A block is said to statically contain 
those blocks that are nested within it; the 
scope of declarations within a block, B, 
includes those blocks statically contained 
in B. Now, certain attributes are evaluat- 
ed and certain generations established on 
entry to a block; the relevant attributes 
and generations are; 

Generations of automatic data 

Generations of simple parameters 

Bounds, string-lengths, and area sizes 
of defined data 

Bounds, string lengths, and area sizes 
within simple parameter attribute 
lists of entry attributes 

String lengths and area sizes within 
RETURNS attribute specifications and 
in PROCEDURE and ENTRY statements 

When several activations of B are in exis- 
tence, as in recursion, it is essential to 
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know which activation of B holds the stor- 
age and evaluated attributes of data 
declared in B and known to a given descen- 
dant activation of a block statically con- 
tained in B. If a block, Bl, is nested 
within n statically containing blocks, the 
particular activation of each of the n 
blocks that hold the evaluated attributes 
and generations known to Bl form the envi- 
ronment of the activation of Bl. 



same block, L refers to the current block.) 
When a label- constant is assigned to a 
label variable, this environmental informa- 
tion is assigned as well; subsequent GO TO 
statements naming the label variable will 
reestablish the environment assigned to the 
variable, and hence may cause blocks to be 
terminated . 



The immediate environment of an activa- 
tion of a begin block is provided by the 
activation of the immediate statically con- 
taining block that activates the begin 
block. 

The immediate environment of an activa- 
tion of a procedure by one of its entry 
names (i.e. , not by an entry parameter) is 
provided by the activation of the immediate 
statically containing block that activates 
the procedure. 

When an entry name is passed as an 
argument, the immediate environment to be 
used in subsequent invocations by an entry 
parameter is determined and passed with it. 
This environment is provided by the activa- 
tion, in the current environment of the 
block that passes the entry name, of the 
block that statically contains the proce- 
dure whose entry name is passed. 

The immediate environment of an activa- 
tion of an on-unit is provided by that 
activation of the block, containing the 
ON-statement, in which the on-unit is esta- 
blished. 

The immediate environment of an activa- 
tion of some block, BA, is provided by an 
activation of the block, Bl, which stati- 
cally contains BA. If BA is nested within 
the n blocks Bl, B2 ... Bn, there is a 
sequence of block activations such that the 
activation of B^+l provides the immediate 
environment of the activation of Bi. This 
sequence provides the complete environment 
of the activation of BA. 



GENERATION OF A VARIABLE 



A level-one generation , or allocation, 
of a variable is created whenever storage 
is allocated for the variable. A level-one 
generation, or a subgeneration as described 
below, consists of the storage for the 
generation and has associated with it a 
pointer to the generation and the evaluated 
set of attributes of the generation. The 
pointer to the generation serves as a 
unique identification of the generation. 
The evaluated set of attributes is esta- 
blished when the generation is allocated 
and enables the contents of the storage to 
be interpreted. 



In the case of s 
controlled generati 
generation can only 
ing the variable 
ADDR built-in functi 
bles a locator varia 
based generation i 
ALLOCATE , LOCATE , 
value is assigned 
enabling it to be 
generation that is c 



tatic, automatic, and 
ons, the pointer to the 
be obtained by supply- 
as the argument of the 
on. For based varia- 
ble is specified when a 
s to be created by an 
or READ statement; a 
to the locator variable 
used to access the 
reated. 



The storage for a generation contains 
the values of the various fields in the 
variable. The evaluated set of attributes 
of a generation comprises the structuring 
| of the variable, its ALIGNED or UNALIGNED 
attribute, the data types of its compo- 
nents, and the bounds of arrays, lengths of 
strings and sizes of areas as evaluated at 
the point of allocation. 



THE ENVIRONMENT OF A LABEL CONSTANT 



A label constant written as a label 
prefix designates a point within the text 
of a block, B. During execution, there may 
be several activations of B; it is essen- 
tial to know to which such activation of B 
a reference to the label refers. 

A reference to a label constant, L, made 
in some activation of a block Bl is to L in 
that activation of B which forms part of 
the current environment of the activation 
of Bl. (Of course, if B and Bl are the 



A generation of an aggregate or area 
variable consists of a number of subgenera- 
tions. If a generation is an array, each 
subscripted item in the array is a subgen- 
eration. If a generation is a structure, 
each item immediately contained within the 
structure is a subgeneration. An aggregate 
subgeneration itself contains further 
subgenerations . An area generation con- 
tains a set of subgenerations corresponding 
to the generations that have been allocated 
in the area but not freed. If a subgenera- 
tion is an area, the attributes of its 
subgeneration are significant only if one 
of these subgenerations is being accessed. 
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Offset variables may be used to identify 
the position of a generation within an 
area. The position is not qualified by the 
area itself, so the offset may be applied 
to any suitable area. This is achieved by 
supplying the offset and the area as argu- 
ments of the POINTER built-in function; the 
result is a pointer identifying the genera- 
tion within the area. 



STORAGE CLASSES 



Every variable in a program must have a 
storage class , which specifies the manner 
of storage allocation. 

There are four storage classes. The 
storage class is specified by declaring the 
variable with one of the four storage class 
attributes STATIC, AUTOMATIC, CONTROLLED, 
or BASED. The storage class may be 
declared explicitly or by default. 



ALLOCATION OF DATA AND STORAGE CLASSES 



Because the internal storage of any 
computer is limited in size, the efficient 
use of this storage during the execution of 
a program is frequently a crucial consider- 
ation. The simple static process of data 
allocation used by many compilers — the 
assignment of a distinct storage region for 
each distinct variable used in the source 
program — may be wasteful. Multiple Use 
of a storage region for different data 
during program execution can reduce the 
total amount of storage required. 

Provisions are included in the language 
to give the programmer virtually any degree 
of control over the allocation of storage 
for the data variables in a program if he 
chooses to do so. 



The Static Storage Class 



Storage for a variable with the attri- 
bute STATIC is allocated before execution 
of the program and is never released during 
execution. 

The scope attribute of a static variable 



may be INTERNAL or EXTERNAL. 
variable with imspecif ied 
has, by default, the STATIC 
attribute. 



The Automatic Storage Class 



An external 
storage class 
storage class 



DEFINITIONS AND RULES 



Storage is said to be allocated for a 
variable when storage is associated with 
the variable. Allocation for a given vari- 
able may take place statically , before 
execution of the program, or dynamically , 
during execution. 

Storage may be allocated dynamically for 
a variable and subsequently released . 
Thus, this storage is freed for possible 
use in later allocations. If storage has 
been allocated for a variable and not 
subsequently released, the variable is said 
to be in an allocated state . 

When a variable appears in a statement 
of a source program, the appearance is 
called a ref erence . If a reference corres- 
ponds either to the assignment of a value 
to the variable (e.g., an appearance on the 
left side of an assignment statement) or to 
a use of the value of the variable (e.g., 
appearance in an expression to be 
evaluated) the variable must be in an 
allocated state. 



If a variable has the attribute AUTOMAT- 
IC, the activation and termination of the 
block containing the declaration of this 
variable determines storage allocation for 
the variable. Whenever this block is acti- 
vated during execution of a program, stor- 
age will be allocated for the variable, and 
the variable will remain in an allocated 
state until termination of this block. At 
the time of termination, the storage is 
released. Thus, the time interval during 
which the variable is in an allocated state 
will necessarily include the intervals when 
the variable is known. 

Termination of a block by means of a GO 
TO, STOP, or EXIT statement may imply 
simultaneous termination of other blocks 
and, consequently, simultaneous release of 
storage for all automatic variables 
declared in these blocks. 

If the block is activated recursively 
(reactivated one or more times before 
return) , the previous generation of an 
automatic variable or parameter is "pushed 
down" on each entrance and "popped up" on 
each return to yield the proper generation 
of storage for the variable after each 
return, until the final return out of the 
procedure. 
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Note: The terms "pushed down" and "popped 
up" refer to the notion of a push-down 
stack . A push-down stack is a logical 
device S f similar in behavior to a physical 
stacking process. When an element is 
placed in S, it is conceptually placed on 
top of the elements already in S, which are 
"pushed down. " At any time, if S is not 
empty, the top element — the element most 
recently placed in S -- can be removed from 
S, and the remaining elements are "popped 
up. n 



Example: 

A: PROCEDURE; 

DECLARE X STATIC; 



B : PROCEDURE ; 

DECLARE Y (100) CONTROLLED, 
Z CHARACTER (1000) ; 



The scope attribute of an automatic 
variable must be INTERNAL. An internal 
variable with unspecified storage class 
has, by default, the AUTOMATIC storage 
class attribute. 



ALLOCATE Y; 



FREE Y; 



C: BEGIN; 

DECLARE Z (100) 



The Controlled Storage Class 



The ALLOCATE statement may specify one 
or more controlled variables, each with 
certain optional attributes. Execution of 
the statement causes the allocation of 
storage for the variables specified. 



END C; 



RETURN ; 



The FREE statement may specify one or 
more controlled variables, and execution of 
the statement causes the storage most 
recently allocated for the variables to be 
released.. 



At some point in a program, it may not 
be known whether a controlled variable X is 
in an allocated state. The built-in func- 
tion ALLOCATION is provided to test this 
state. The function reference ALLOCATION 
(X) will return the value ' l'B if any 
generation of X is in an allocated state, 
and the value ' 0"B if not. 



END B; 



END A; 

Assume in the above example that the 
termination of procedure A occurs on the 
return implied by END A, the termination of 
procedure B occurs on the RETURN statement, 
and the termination of block C occurs at 
END C. Then in this example: 

Storage for the static variable X is 
allocated before execution and is never 
released. 



More than one ALLOCATE statement speci- 
fying the same variable, without an inter- 
vening FREE statement creates a push-down 
stack of generations of that variable. A 
FREE statement always frees the topmost 
generation. 



Generations that are not explicitly 
freed are freed automatically upon termina- 
tion of the task in which they are allocat- 
ed. 



The scope attribute of a controlled 
variable may be INTERNAL or EXTERNAL,. 



The character-string variable Z is AUTO- 
MATIC by default. Storage is allocated 
for this Z on entry to procedure B and 
is released on execution of the RETURN 
statement. 

The array-variable Z is AUTOMATIC by 
default. Storage is allocated for this 
Z at the beginning of execution of block 
C and is released at END C. 

Storage for the CONTROLLED variable Y is 
allocated on execution of the ALLOCATE 
statement and is released on execution 
of the FREE statement. After execution 
of the FREE statement, the variable Y 
presumably is not used, but the 
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character-string variable Z can be used, 
since storage is not released for this 
variable until the termination of proce- 
dure B. 



The Based Storage Class 



3. Testing whether or not a task is 
complete 

4. Changing the priority of a task 

5. Testing the status of the termination 
of a task 



The BASED Attribute specifies that gen- 
erations of the declared variable may be 
allocated under the control of the program- 
mer. A based variable can be allocated by 
use of the ALLOCATE statement (optionally 
in a specified area) and freed by use of 
the FREE statement. A based variable can 
be allocated in a buffer by use of the 
LOCATE statement; such a generation is 
freed when the record is transmitted by a 
subsequent LOCATE or WRITE statement for 
the same file, or when the file is closed. 
A based generation may also be allocated by 
a READ statement with the SET option. All 
based generations allocated in a task, with 
the exception of those allocated in areas, 
are automatically freed when the task is 
terminated. 

A based reference comprises two parts 
which together enable a generation to be 
accessed. Firstly, there is a based varia- 
ble which provides the attributes of the 
generation. Secondly, there is a locator 
qualifier which identifies the generation; 
this qualifier is obtained from the based 
attribute of the based variable unless a 
qualifier is specified in the reference, in 
which case it overrides any qualifier given 
in the based attribute. 



SYNCHRONOUS AND ASYNCHRONOUS OPERATIONS 



Unless the program specifies the crea- 
tion of tasks, the execution of the state- 
ments of the program will proceed serially 
in time, according to the sequence desig- 
nated by the order of the statements and 
the control statements. Such operation is 
said to be synchronous . 

In addition to full facilities for con- 
ventional synchronous processing, means are 
provided for performing operations asyn- 
chronously . 

Some reasons for considering the use of 
asynchronous operations are: 

1. The programmer may wish to make use of 
computer facilities which can operate 
simultaneously, e.g., input/output 
channels, multiple central processing 
units . 

2. A program may be written in which 
input/output units initiate or com- 
plete transmission at unpredictable 
times, e.g., disc operations, termi- 
nals. 



When a BASED variable is used to access 
a generation, the ALIGNED and UNALIGNED 
attributes of the BASED variable and the 
accessed generation must agree. 

Based variables need not be allocated. 
Based references may be used to access 
generations in any storage class. The ADDR 
built-in is used to obtain a pointer value 
which will identify a non- based generation. 
A based reference refers to an allocated 
generation if its locator qualifier has a 
defined value. 



The following two diagrams distinguish 
between synchronous and asynchronous opera- 
tions. The first diagram depicts the seri- 
al action of synchronous operations, and 
the second diagram depicts the parallel 
action of asynchronous operations. (The 
circles represent statements.) 



o — o- 

time — > 






ASYNCHRONOUS OPERATIONS AND TASKS 



.<> o O . 



PL/I provides facilities for execution 
of a program as a set of asynchronous 
tasks. These facilities include provision 
for: 

1,. Creating and terminating tasks 

2. Synchronizing tasks 



o-o-oJ- o o o 

time — > 

In asynchronous operation, once a new 
line has been started, the statements on 
that line are executed in sequence, but 
independently of the statements on any 
other line. Statements on any two lines 
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need not necessarily be executed simultane- 
ously -- whether this occurs depends on the 
resources and state of the system. 



SYNCHRONIZING TWO ASYNCHRONOUS OPERATIONS 



nous operations, then the major task will 
be the program itself. 

In order to initiate asynchronous opera- 
tions of tasks, the programmer has to 
create new tasks, as described below. All 
tasks created by the programmer are called 
sub-tasks. 



ABC 
o — o — o- 


D 


time — > 




L 
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Wait 



In order that the result of an asynchro- 
nous operation may be made available to 
other tasks, a WAIT statement can be used 
to synchroniz e two or more asynchronous 
operations. 

The following diagram illustrates this: 



E F G 



NO P 



Assume that before statement N can be 
executed, both L and E must have been 
executed. M therefore issues a WAIT state- 
ment which will suspend operation on that 
line until E has been completed. After N, 
the statements 0, P,..., are executed syn- 
chronously, as are the statements F, 



TASKS AND EVENTS 



In PL/I, asynchronous operations result 
from the creation, by the programmer, of 
tasks or from the initiation of DISPLAY 
statements or record transmission with an 
event option. The synchronizing of opera- 
tions is obtained by waiting on events. 

A task is an identifiable execution of a 
set of instructions. A task is dynamic, 
and only exists during the execution of a 
program or part of a program. 

A task is not a set of instructions, but 
an execution of a set of instructions. The 
instructions themselves, as written by the 
programmer, may in fact be executed several 
times in different tasks. 

It is necessary for at least one task to 
exist when a PL/I program is executed. 
Thus when an external procedure is first 
entered, its execution is part of a task. 
This particular task is called the major 
task ; it is created by the operating envi- 
ronment and its creation does not necessar- 
ily concern the PL/ I programmer. If the 
programmer is concerned with only synchro- 



With each task, except the major task, 
it is possible to associate a task varia- 
ble. The task variable may be used to 
refer to and set the priority of the task; 
it cannot be used, however, to test comple- 
tion of the task. 

A task may be suspended by the program- 
mer until some point in the execution of 
another task has been reached. The speci- 
fied point is known as an event and the 
record of its completion is contained in an 
event variable and accessed by the COMPLE- 
TION built-in function. The value ' 1"B 
indicates the event is complete; 'O'B indi- 
cates the event is incomplete. An event 
variable also has a status value, accessed 
by the STATUS built-in function, which 
indicates the manner in which the event has 
been completed. 

An event variable may be associated with 
the completion of a task. It is necessary 
to specify such an event variable if the 
programmer wishes to synchronize a point in 
one task with the completion of another 
task, by means of the WAIT statement. 

The DISPLAY statement and some RECORD 
input/output operations can be associated 
with event variables. These event varia- 
bles can then be used in WAIT statements to 
synchronize the task with the completion of 
the input/ output event. 

An event variable remains associated 
with an event until the event has been 
completed. During this period of associa- 
tion, the event variable is said to be 
active. Any attempt to associate it with 
another event or to modify its completion 
value is an error, and the ERROR condition 
is raised. 

An event variable associated with a task 
is set complete when the task is terminat- 
ed. If the task is terminated by a RETURN 
or END statement, the status value indi- 
cates normal termination; otherwise, the 
status must have a non-zero value. 

On execution of an input/output state- 
ment with the EVENT option, the event 
variable is first set active and then 
incomplete. This is done before any 
input/output transmission is initiated, but 
after any action associated with an impli- 
cit opening is complete. An input/output 
event variable is not set complete until a 
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WAIT statement naming the associated event 
variable is executed in the task that 
initiated the event. The WAIT statement 
delays execution of this task until any 
transmission associated with the event has 
been terminated. If no input/output condi- 
tions are to be raised for this operation, 
the event variable is set complete and is 
no longer active. If any input/output 
conditions are to be raised, all conditions 
are raised during the execution of the WAIT 
statement. On a normal return from the 
last on-unit entered as a result of these 
conditions, or on an abnormal return from 
one of these on-units, the event variable 
is set complete and is no longer active 
(see "Multiple Interrupts" in Appendix 3 
for more information) . 



2. by assignment to the PRIORITY pseudo- 
variable for the task name prior to 
the execution of the CALL statement 
that creates the task using the same 
task name. 

If a task is attached without a 
specified priority, the priority of the 
attached task is the same as the priority 
of the attaching task. 

The term "task option" will be used in 
all later discussions to denote any one of 
the three options TASK, EVENT, or PRIORITY, 
or any part of these options, or all three. 



TERMINATION OF TASKS 



THE CREATION OF TASKS 



A task may be terminated in one of the 
following ways: 



In PL/I tasks are created by execution 
of a CALL statement that contains one or 
more of the following: 



1. Control for the task reaches a RETURN 
or END statement for the procedure 
invoked with a task option. 



A TASK option 
An EVENT option 
A PRIORITY option 

The called procedure will then be executed 
asynchronously with the calling procedure. 
The CALL statement itself is not part of 
the newly- created task. The execution of 
the calling procedure is known as the 
attaching task . The execution of the 
called procedure is known as the attached 
task . 

The TASK option is given in order to 
name the task created by the CALL. This is 
necessary if the programmer wishes to exam- 
ine or change the priority of the called 
procedure, since the PRIORITY function and 
pseudo-variable have a task name as an 
argument. 

The EVENT option is given if the pro- 
grammer wishes to issue a WAIT statement 
which will wait on the completion of the 
task created by the CALL. 

On execution of a CALL statement with 
the EVENT option, the event variable, which 
must be inactive, is set incomplete. The 
variable becomes active immediately before 
it is set incomplete. All this is accom- 
plished before control passes to the named 
task. 

The task created by the CALL statement 
must be given a priority. This priority 
may be specified in either of two ways: 

1. through the PRIORITY option in the 
CALL statement, or 



2. Control for any task reaches a STOP 
statement. 

3. Control for the task reaches an EXIT 
statement. 

4. A block or task from which this task 
is a dynamic descendant is terminated. 

When a task is terminated the following 
actions take place: 

1. All I/O events, which were initiated 
in that task and which are not yet 
complete, are set complete and their 
status value is set to 1 if it is not 
already non-zero. Their results are 
not defined. 

2. All files, which were opened during 
that task and are not yet closed, are 
closed. During this process all I/O 
conditions are disabled. 

3. All records locked by the task, or any 
of its subtasks, are unlocked. 

4. All CONTROLLED variables allocated 
during the execution of the task are 
freed. 

5. BASED variables allocated in AREAs are 
freed when the AREA in which they were 
allocated is freed. All other BASED 
allocations are freed when the task in 
which they were allocated is freed. 

6. All active blocks in the task are 
terminated. This involves the termi- 
nation of all tasks initiated during 
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the execution of these blocks and 
still active. 

7. If the task is terminated by any 
statement other than a RETURN or END 
statement in this task, the status 
value of the event variable associated 
with the task is set to 1 unless it is 
already non-zero. In all cases the 
completion value of the event is set 
to 'l'B.. 

Variables which were being assigned to 
at the time of task termination, or data 
sets associated with OUTPUT or UPDATE files 
which were being created or updated at the 
time of task termination, may not have 
defined values after termination. It is 
the responsibility of the programmer to 
ensure that assignment to variables or 
transmission to files is properly completed 
before the task performing these operations 
terminates . 



can give rise to unpredictable or undefined 
results unless special steps are taken in 
the source program to ensure that more than 
one reference to the same variable cannot 
be in effect at one instant (e.g. by 
forcing temporary synchronisation by use of 
WAIT) , or unless none of the references to 
a variable that can be in effect at one 
instant can assign to the variable. 
Subject to this qualification and the nor- 
mal scope rules, the following additional 
rules apply. 

1. Any generation of any variable of any 
storage class can be referenced in any 
task by means of an appropriate BASED 
variable reference. It is the user's 
responsibility to ensure the required 
variable is in an allocated state at 
the time of reference. BASED varia- 
bles allocated in an AREA are f reed- 
when the AREA is freed; all other 
BASED variables are freed when the 
task, in which they were allocated, is 
terminated. 



DYNAMIC DESCENDANCE OF TASKS 



If, within the execution of a task, a 
block B is activated and control for that 
task stays at points internal to B until 3 
is terminated, no other blocks can be 
activated within that task while B is 
active. 

It is possible, however, for control of 
that task to pass outside B and cause 
activation of other blocks while B is still 
active for single tasking applications in 
any of the ways described under "Dynamic 
Descendance." It is also possible for a 
new control of a task to be initiated 
during the activation of B by a CALL with a 
TASK, EVENT or PRIORITY option. Just as 
all additional blocks activated in the 
original task are dynamic descendants of B, 
all blocks in the new task are dynamic 
descendants of B and of the blocks of which 
B is a descendant. Most of the rules 
associated with dynamic descendance apply 
across task boundaries, e.g. ON units 
established prior to the attaching of a 
task are inherited by the subtask just as 
if the initial block of the subtask had 
been synchronously called. 



Sharing of Data between Tasks 



The rules of scope for names apply to 
blocks whether or not the blocks are 
invoked as, or by, subtasks. The same 
variables, or generations of these varia- 
bles, can therefore be referenced by two or 
more asynchronously executing tasks. This 



2. Static variables may be referenced in 
any task in which they are known. 

3. Automatic variables can be referred to 
by any block dynamically descendent 
from the block which allocates them, 
regardless of task boundaries. 

4. Controlled variables can be referenced 
in any task in which they are known; 
however, not all allocations are known 
in each task. When a task is initiat- 
ed, only the allocation of each con- 
trolled variable currently known by 
the attaching task is passed to the 
attached task. Both tasks may ref- 
erence this allocation. Subsequent 
allocations in the attached task are 
known only within the attached task; 
subsequent allocations in the attach- 
ing task are known only within the 
attaching task. A task may only free 
allocations it has allocated. It is 
permissible for no allocations of the 
controlled variable to exist at the 
time of attaching. It is not permis- 
sible for a task to free a controlled 
allocation shared with a subtask if 
the subtask subsequently attempts to 
reference the generation. When a task 
is terminated all allocations of con- 
trolled storage made within that task 
are freed. 



Sharing Files between Tasks 



A file is shared between a task and its 
subtask if the file is open at the time the 
subtask is attached. The rules concerning 
such shared files are as follows. 
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1. If a subtask shares a file with its 
attaching task, the subtask must 7 not 
close the file. A subtask must not 
access a shared file after its attach- 
ing task has closed the file, even if 
the attaching task reopens the file 
before the subtask accesses it. 

2. If a task shares a file with one of 
its subtasks it may close the shared 
file, provided the subtask makes no 
subsequent attempt to access the file. 

3. If a file name is known to a task and 
its subtask, and its associated file 
was not open when the subtask was 
attached, then both the task and its 
subtask may each separately open, 
access and close the file. 



INTERRUPT OPERATIONS 



During the course of program execution 
any one of a certain set of conditions may 
occur that can result in an interrupt . An 
interrupt operation causes the suspension 
of normal program activities, in order to 
perform a special action; after the special 
action, program activities may or may not 
resume at the point where they were sus- 
pended. 

For conditions recognized by PL/I, the 
special action to be taken when an inter- 
rupt occurs may be specified by the pro- 
grammer. To do this, he may specify the 
condition in an ON statement; therefore 
these conditions are known as the 0N- 
conditi ons,. A complete list and 
description of the ON- conditions can be 
found in Appendix 3. With one exception 
(see "Programmer Defined ON-Conditions , " in 
this chapter) , each ON- condition is named 
with a unique identifier suggestive of the 
condition (e.g. , ZERODIVIDE specifies the 
condition obtaining whenever an attempt is 
made to divide by zero). This collection 
of names is an intrinsic part of the 
language, but the names are not reserved; 
the programmer may use them for other 
purposes, so long as no ambiguity exists. 



PURPOSE OF THE CONDITION PREFIX 



In general, during the execution of a 
statement, an ON condition may be in either 
an enabled or disabled state. 

If a particular condition is enabled and 
an interrupt occurs during execution of the 
statement, the action specification for the 
condition is executed. This action speci- 



fication may either be standard system 

action or it may have been specified by the 

programmer through the use of an ON state- 
ment. 

If a particular condition is disabled 
during execution of a statement, it is 
assumed that the condition will not occur. 
The result is unpredictable for a statement 
in which a disabled condition occurs. How- 
ever for the CHECK condition, results are 
defined. 

By means of condition prefixes, the 
programmer can control the enabled/disabled 
status of the following ON conditions: 



CHECK 

CONVERSION 

FIXEDOVERFLOW 

OVERFLOW 

STRINGRANGE 



SIZE 

SUBSCRIPTRANGE 
UNDERFLOW 
ZERODIVIDE 



The appearance of any of the above 
keywords in a prefix list causes the asso- 
ciated condition to be enabled for the 
scope of the prefix. The appearance of any 
of the above preceded by a NO (with no 
separating blank) causes the associated 
condition to be disabled for the scope of 
the prefix. 



SCOPE OF THE CONDITION PREFIX 



The scope of the prefix depends upon the 
statement to which it is attached. 

If the statement is a PROCEDURE or BEGIN 
statement, the scope of the prefix is the 
block defined by this statement, including 
all nested blocks, except those blocks and 
statements for which the condition is re- 
specified. The scope does not include 
procedures that lie outside the scope as 
defined above but which may be invoked by 
the execution of statements in this scope. 
The identifier list of a CHECK prefix to a 
PROCEDURE or BEGIN statement belongs to the 
scope of the corresponding procedure or 
begin block. If a variable in this list is 
redeclared in a nested block, it is no 
longer in the "checked" state, unless, of 
course, it appears in a CHECK prefix for 
that nested block. This does not apply 
however, if both declarations refer to the 
same external name. 

If the statement is an IF statement or 
an ON statement, the scope of the prefix 
does not include the blocks or groups that 
are part of the statement. Any such block 
may also have an attached prefix, whose 
scope rules are implied by the other rules 
given here. 
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For any other statement, the scope of 
the prefix is that of the statement itself, 
including any expressions evaluated during 
the execution of the statement but not any 
procedure explicitly called by the 
statement. 



The CHECK Condition 



The CHECK 
program testing 
prefix list is 
name list. The 
statement label 
variables, inc 
variables and 1 
names are not a 
can be used. 



condition is provided for 

The keyword CHECK in a 

followed by a parenthesized 

names in the list may be 

constants, entry names, and 

luding array and structure 

abel variables. Subscripted 

llowed, but qualified names 



The CHECK prefix may be attached only to 
PROCEDURE or BEGIN statements, and there- 
fore, it always applies to an entire block. 

An interrupt will generally occur 
immediately after the execution of a state- 
ment in which the value of a variable in a 
check list may have been altered. With 
statement labels and entry names, however, 
the interrupt occurs immediately before the 
execution of the statement or the invoca- 
tion of the entry name. 

The system action for the CHECK condi- 
tion is to print the identifier causing the 
interrupt and, if it is a variable (other 
than program control data) , to print its 
new value in the form of data-directed 
output on a debugging file. For program 
control data, only the variable is printed; 
no value is included. 



USE OF THE ON STATEMENT 



In order to define the action to be 
taken when an interrupt occurs , the pro- 
grammer may write an ON statement. See 
"The ON Statement," Chapter 8, for the 
general form of the statement, the syntax 
and other details. 

When an ON statement that is internal to 
a given block (for example, a block B) is 
executed, it causes a preparatory action 
with the following effect: 

If, during the execution of any state- 
ment after the execution of the ON 
statement and before the termination 
of block B (including the execution of 
statements in all dynamic descendants 
of block B) , the condition specified 
in the ON statement ever occurs and an 



interrupt results, the statement or 
begin block specified in the ON state- 
ment will be executed as though it 
were invoked as a procedure block. 
(If SNAP also has been specified, a 
standard action providing program 
checkout information will precede this 
pseudo-invocation.) Control normally 
will be returned to the point of 
interrupt or to the statement follow- 
ing the one that was interrupted. 

When an ON statement specifying a given 
condition is executed, the action to be 
taken is established by the execution. The 
time interval during which this on-unit is 
effective is defined above in the descrip- 
tion of the effect of an ON statement. 
There are two qualifications to this des- 
cription: 

1. If, after a given action is esta- 
blished by execution of an ON state- 
ment, and while this on-unit is still 
effective, another ON statement speci- 
fying the same condition is executed, 
then this latter ON statement will 
take effect as described above, so 
that its specified action will deter- 
mine the interrupt action for the 
given condition. (The effect of the 
old ON statement is either temporarily 
suspended or completely nullified, 
depending iipon whether or not the new 
ON statement is in a block dynamically 
descendant from the block to which the 
old ON statement is internal; see "The 
ON Statement" and "The REVERT 
Statement" for more details.) 

2. There are nine ON-conditions whose 
names (possibly preceded by the word 
"NO" without intervening blanks) may 
appear in a condition prefix. Even 
when one of these conditions appears 
in an ON statement, occurrence of the 
condition will not necessarily result 
in an interrupt. For an interrupt to 
occur, there are certain additional 
requirements, which are described in 
the following paragraph. 

There are four of these nine ON- 
conditions, SIZE, SUBSCRIPTRANGE, 
STRINGRANGE, and CHECK (identifier 
list) , for which an interrupt will not 
take place when the condition occurs 
unless the programmer specifically 
designates that the interrupt jis to 
take place. He may enable this condi- 
tion by explicitly specifying the con- 
dition in a prefix whose scope will 
cover the calculation where the condi- 
tion may occur. If a calculation 
resulting in the occurrence of either 
of these conditions does not lie with- 
in the scope of such a prefix, no 
interrupts will occur. The other five 
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of these nine ON- conditions, namely 
OVERFLOW, UNDERFLOW, ZERODIVIDE, CON- 
VERSION, and FIXEDOVSRFLOW, are always 
enabled, but the programmer may speci- 
fically designate that an interrupt is 
not to take place. An interrupt for 
any one of these conditions will 
always take place when the condition 
occurs unless the occurrence is in a 
calculation lying within the scope of 
a prefix specifying NOOVERFLOW, NOUN- 
DERFLOW, NOZERODIVIDE,, NOCONVERSION, 
or NOFIXEDOVERFLOW, respectively. 

The other conditions cannot be named in 
prefixes, but they are always enabled and 
cannot be disabled. 



SYSTEM INTERRUPT ACTION 



Each of the ON- conditions has a standard 
action defined for it if an interrupt 
should occur. If no established on-unit is 
in force for a given condition at the time 
that condition is raised and causes an 
interrupt, then s tandard system action will 
be taken. Standard system action is depen- 
dent upon the nature of the condition. If 
the programmer does not want the system 
action in the case where one of these 
conditions may occur and cause an inter- 
rupt, he must specify an alternative action 
for the condition through use of the ON 
statement. 

In some situations, the programmer may 
want to specify his own action for a given 
condition, to have it hold for part of the 
execution of the program, and then to have 
this specification nullified and allow the 
standard system action. In this case, he 
may use the keyword SYSTEM, as follows: 

ON condition-name SYSTEM; 

Example 1 : 

A: PROCEDURE; 



ON OVERFLOW SYSTEM; 



END A; 

In the above example, assume that the 
program consists only of procedure A, that 
the three ON statements are the only ON 
statements involving the OVERFLOW condi- 
tion, that they are internal to procedure 
A, and that they are executed in their 
physical order. 

When program execution begins, the OVER- 
FLOW condition is enabled by the system; 
any floating-point overflow condition that 
occurs before the first ON OVERFLOW state- 
ment is executed will result in an inter- 
rupt, with standard system action. Howev- 
er, the execution of the first ON OVERFLOW 
statement establishes the action specified 
in the BEGIN block. (The number of over- 
flows is counted and if this number has not 
reached 100, the action is finished.) Any 
OVERFLOW interrupts will receive this 
action until the second ON OVERFLOW state- 
ment is executed. The action specified 
here is a null statement; any subsequent 
OVERFLOW interrupts will effectively be 
ignored until control reaches the third ON 
OVERFLOW statement, which reestablishes the 
standard system action. 

Example 2: 

(SIZE) : A: PROCEDURE; 



ON SIZE GO TO AERR; 

CALL B; 

END A; 
(SIZE, NOOVERFLOW): B: PROCEDURE; 



ON OVERFLOW 

BEGIN; 

DECLARE NT7MBOV STATIC 

INITIAL (0); 
NUMBOV=NUMBOV + 1; 
IF NUMBOV = 100 THEN GO 

TO OVERR; 
END; 



ON OVERFLOW; 



ON SIZE GO TO BERR; 



RETURN ; 
END B; 

In the above example, the prefix (SIZE) 
enables that condition for procedure A and 
specifies that if a SIZE condition occurs 
during any calculation in procedure A, an 
interrupt is to take place. The prefix 
(SIZE, NOOVERFLOW) for procedure B speci- 
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fies the same requirement with respect to a 
SIZE error for procedure B; in addition, it 
specifies for procedure B that any inter- 
rupt that might be caused by an OVERFLOW 
condition is to be suppressed. 



After the beginning of execution of 
procedure A, and before the execution of 
the first ON statement, any SIZE condition 
will result in an interrupt with standard 
system action. After execution of this ON 
statement, and before execution of the ON 
statement in the invoked procedure B, any 
SIZE condition will result in an interrupt 
with the action GO TO AERR. After execu- 
tion of the ON statement in procedure B, 
the action GO TO BERR becomes established 
for the SIZE condition, but the effect of 
the previous ON statement is suspended only 
temporarily. After the RETURN statement in 
procedure B is executed, the effect of this 
previous ON statement is reinstated, so 
that SIZE conditions occurring after this 
point again result in the action GO TO 
AERR. 



USE OF THE REVERT STATEMENT 



The RFVERT statement may be used, fol- 
lowing an ON statement, to reinstate an 
action specification that existed in the 
immediate, dynamically encompassing block 
at the time the descendant block was 
invoked. 



Example: 
(SIZE) 



A: PROCEDURE ; 

ON SIZE GO TO AERR; 



CALL B; 



END A; 
(SIZE): B: PROCEDURE; 

ON SIZE GO TO BERR; 



If any floating-point overflow condition 
occurs during the execution of procedure A, 
an interrupt will result with the standard 
system action for the OVERFLOW condition. 
However, for any occurrence of an OVERFLOW 
condition during the execution of procedure 
B, the interrupt will be suppressed. 



Example 3 : 

X: PROCEDURE; 
DECLARE A,B; 
ON OVERFLOW BEGIN; 

PUT DATA (A, B) ; 

END; 



REVERT SIZE; 



END B; 

In the above example, if a SIZE condi- 
tion occurs in procedure B after execution 
of the ON statement, an interrupt will take 
place with the resulting action GO TO BERR. 
After execution of the REVERT statement, 
the condition as specified by the ON state- 
ment in procedure A is reinstated. Program 
control remains in procedure B, but any 
subsequent SIZE condition that occurs in 
procedure B will cause an interrupt with 
the action GO TO AERR. 



Y: BEGIN; 

DECLARE A,B; 



END Y; 



PROGRAMMER-DEFINED ON-CONDITIONS 



An identifier can be used to create a 
condition name by means of the keyword 
CONDITION used in the ON statement, as 
follows: 



END X; 

This example illustrates the effect of 
establishment of the generation of varia- 
bles at the time an ON condition is execut- 
ed. If the OVERFLOW condition should 
arise, the values transmitted by the PUT 
statement in the on-unit will be the values 
of the variables A and B that are declared 
in the outer block. This is true,, even if 
the OVERFLOW condition should arise during 
execution of the begin block Y, where A and 
B have been redeclared. 



ON CONDITION (identifier) on-unit 

Such a statement contextually declares the 
identifier to be a condition-name and the 
execution of the statement provides an 
on-unit. The condition can be caused to 
occur only by the execution of a SIGNAL 
statement (see "The SIGNAL Statement"). 

For example, if the following statement 
is executed: 

ON CONDITION (ABC) block 
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and later 
cuted: 



the following statement is exe- 



SIGNAL CONDITION ( ABC) ; 

then the latter execution will (by defini- 
tion of the SIGNAL statement) cause an 
interrupt, with the action defined by the 
block in the ON statement. 



CONDITION BUILT-IN FUNCTIONS AND PSEUDO- 
VARIABLES 



entered via a SIGNAL statement, ONCHAR 
is the character blank and ONSOURCE is 
the null string. 



2. A block, B, which is a dynamic descen- 
dant of such an on-unit, provided that 
no intervening block is an on-unit for 
one of the conditions associated with 
the function nor is any such block an 
ERROR on-unit entered as standard sys- 
tem action for, or normal return from, 
any of the conditions associated with 
the function. 



The condition built-in functions are 
provided for the investigation of inter- 
rupts. Each such function is associated 
with certain conditions: 

Built-in Function Associated Conditions 



ONFILE 



ONLOC 
ONSOURCE 
ONCHAR 
ONKEY 



ONCODE 

DATAFIELD 

ONCOUNT 



I/O conditions, and 
CONVERSION raised dur- 
ing an I/O operation 
All conditions 
CONVERSION condition 
CONVERSION condition 
I/O condition or CON- 
VERSION condition 
raised by an operation 
on a KEYED file 
All conditions 
NAME condition 
I/O conditions for an 
I/O operation with the 
event option 



Appendix 1 gives the value returned by 
these functions when they are used in the 
following contexts: 

1. An on-unit for one of the associated 
condition for the function, or an 
ERROR on-unit entered as standard sys- 
tem action for one of the associated 
conditions. However, if the condition 
is CONVERSION and this on-unit is 



In all other contexts the value of a 
condition built-in function is the null 
character string, except for ONCHAR which 
is the single character blank and ONCODE 
and ONCOUNT which have the value zero. 

The condition built-in functions are 
inherited by blocks in a manner analagous 
to the inheritance of on-units. Thus if, 
for example, the CONVERSION condition 
occurs in a CONVERSION on-unit, the values 
of ONSOURCE and ONCHAR are stacked before 
the new CONVERSION on-unit is entered. 
Within the new CONVERSION on-unit ONCHAR 
and ONSOURCE have values determined by this 
second conversion interrupt; the values 
pertaining to the first interrupt are re- 
established when control returns from the 
second on-unit. 

The condition pseudo-variables, i.e., 
ONCHAR and ONSOURCE, may be used within 
blocks defined in 1 and 2 above to alter a 
character string value whose conversion has 
raised a CONVERSION interrupt. If the 
source for the conversion is a variable or, 
pseudo- variable or if it is specified by 
the SUBSTR built-in function with a 
variable as its first argument, then within 
these blocks an assignment to the condition 
pseudo-variables is an assignment to the 
variable concerned. It is an error to 
assign to the condition pseudo-variables in 
any other blocks. 
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CHAPTER 7. INPUT/ OUTPUT 



A collection of data external to the 
program constitutes a data set . Input 
activity transmits data from a data set to 
a program. Output activity transmits data 
from a program to a data set. Input/output 
statements refer to a filename declared in 
the program. 



In S TREAM input/output , the data set can 
be considered to be a continuous stream of 
characters. The GET and PUT statements are 
used to transmit data values from and to 
the data set. Conversions may occur during 
transmission (see "Data Stream Transmis- 
sion," below). 



Attributes 

STREAM | RECORD 
INPUT | OUTPUT | UPDATE 
SEQUENTIAL! DIRECT 
BUFFERED | UNBUFFERED 
INTERNAL! EXTERNAL 



Default 

STREAM 

INPUT 

SEQUENTIAL 

BUFFERED 

EXTERNAL 



Following is a list of the additive 
attributes: 

PRINT 

BACKWARDS 

EXCLUSIVE 



In RECORD input/output , the data set 
consists of discrete records. The READ and 
WRITE statements cause a single record to 
be transmitted from or to the data set. 
Transmission is direct, without any conver- 
sion, either directly to data variables or 
to an intermediate buffer that may be 
addressable. When transmission is to or 
from data variables, the attributes of the 
variables should accurately describe the 
composition of the record. 



FILE OPENING AND FILE ATTRIBUTES 



The file attributes are discussed in 
Chapter 4. This section describes how 
attributes are collected and become asso- 
ciated with a file, as well as describing 
how a file is opened. 

The file attributes can be divided into 
two categories, alternative attributes and 
additive attributes. Alternative attri- 
butes are those in which one of a group may 
be selected. If there is no explicit or 
implied declaration for one of the alterna- 
tives, and if one of those alternatives is 
required, a default attribute is selected. 
Additiv e attributes are those that are 
never applied by default and must always be 
stated explicitly (except KEYED which is 
implied by DIRECT) , either in a file dec- 
laration or in the OPEN statement (the one 
exception is that PRINT may be applied by 
default for the SYSPRINT file, see 
"Standard Files"). 

Following is a summary of the alterna- 
tive attributes and their defaults: 



KEYED 

ENVIRONMENT ( option- list ) 

OPENING A FILE 

The opening of a file is the means by 
which a filename is associated with a 
particular data set. The identity of the 
data set can be indicated through the TITLE 
option of the OPEN statement; otherwise, 
the filename will indicate the identity of 
the data set. A part of the opening 
process is the completion of the set of 
attributes that describe the composition of 
the data set and the method in which the 
individual records of the data set will be 
accessed. A file can be opened either 
explicitly or implicitly. 

Opening a file for stream input, for 
SEQUENTIAL INPUT forwards, or for SEQUEN- 
TIAL UPDATE causes the data set to be 
positioned to the first record of the data 
set. Opening for backwards causes the data 
set to be positioned to the last record. 



Explicit Opening 



A file is opened explicitly through 
execution of an OPEN statement that speci- 
fies the filename. The OPEN statement may 
list any of the attributes given above 
except the ENVIRONMENT, INTERNAL, or EXTER- 
NAL attributes. Attributes listed in an 
OPEN statement are merged with any attri- 
butes listed in a file declaration for that 
filename. In an explicit opening, the OPEN 
statement must be executed prior to the 
execution of any of the statements listed 
below under "Implicit Opening" that refer 
to that filename. 
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Implicit Opening 



Merged Attribute Implied Attribute (s) 



An implicit opening of a file may occur 
if one of the statements listed below is 
executed prior to the execution of an OPEN 
statement specifying the same filename. 
The statement type is used to determine the 
usage and function attributes of the file 
if they have not been explicitly stated in 
a DECLARE statement. The effect of an 
implicit opening, caused by one of these 
statements, is as if the statement were 
preceded by an OPEN statement specifying 
the attributes deduced from the statement 
type. 



Following is a list of the statement 
identifiers and the attributes that will be 
deduced from each and that will be applied 
in the absence of an explicit declaration 
to the contrary: 



Statement Identifier Attributes Deduced 



GET 

PUT 

READ 

WRITE 

REWRITE 

LOCATE 



DELETE 
UNLOCK 



STREAM, INPUT 
STREAM, OUTPUT 
RECORD, INPUT 
RECORD, OUTPUT 
RECORD, UPDATE 
RECORD, OUTPUT, 

SEQUENTIAL, 
BUFFERED 
RECORD, DIRECT, 

UPDATE 
RECORD, DIRECT, 

UPDATE , 

EXCLUS IVE 



Merging of Attributes 



There must be no conflict between the 
attributes specified in a file declaration 
and the attributes merged as the result of 
the file opening, either explicit or impli- 
cit. For example, the attributes INPUT and 
UPDATE are in conflict, as are the attri- 
butes UPDATE and STREAM. 



After the 
attribute imp! 



applied prior 
attributes di 
tion. Implied 
conflict. If 
exists after 
attributes, t 
raised. 



attributes are merged, the 
ications , listed below, are 
to the application of default 
scussed earlier in this sec- 
attributes can also cause a 
a conflict in attributes 
the application of default 
he UNDEFINEDFILE condition is 



UPDATE 
SEQUENTIAL 
DIRECT 
BUFFERED 

UNBUFFERED 

PRINT 
BACKWARDS 



EXCLUSIVE 



KEYED 



RECORD 
RECORD 

RECORD, KEYED 
RECORD, 

SEQUENTIAL 
RECORD, 

SEQUENTIAL 
OUTPUT, STREAM 
RECORD, 

SEQUENTIAL, 
INPUT 
RECORD, KEYED, 

DIRECT, 

UPDATE 
RECORD 



Following is a list of attributes and 
the other attributes that each implies 
after merging: 



The following two examples illustrate 
attribute merging for an explicit opening 
and for an implicit opening: 

Explicit opening example 

DECLARE LISTING FILE STREAM; 



OPEN FILE (LISTING) PRINT; 

The filename LISTING has the EXTER- 
NAL attribute by default. 

Attributes after merge, due to exe- 
cution of the OPEN statement, are 
EXTERNAL, STREAM and PRINT. 

Attributes after implication are 
EXTERNAL, STREAM, PRINT, and OUT- 
PUT. 

Since this is a complete set of 
file attributes, no file attribute 
defaults are applied. The default 
attribute BUFFERED does not apnly 
as this attribute can be specified 
only for SEQUENTIAL RECORD files. 

Implicit opening example 

DECLARE MASTER FILE KEYED INTERNAL; 



READ FILE (MASTER) INTO 

( MASTER_RECORD ) 
KEYTO ( MASTER_KEY) ; 

Attributes after merge due to the 
opening caused by execution of the 
READ statement are KEYED, INTERNAL, 
RECORD, and INPUT. 

Attributes after implication are 
KEYED, INTERNAL, RECORD and INPUT.. 
There are no additional attributes 
implied. 
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Attributes after default applica- 
tion are KEYED, INTERNAL, RECORD, 
INPUT, SEQUENTIAL, and BUFFERED. 



In addition, ENVIRONMENT may be speci- 
fied with any valid combination, and each 
filename is external or internal. 



Valid Combinations of File Attributes 



DATA STREAM TRANSMISSION 



Valid complete combinations of file 
attributes are as follows: 

FILE STREAM INPUT 

FILE STREAM OUTPUT 

FILE STREAM OUTPUT PRINT 

FILE RECORD INPUT SEQUENTIAL BUFFERED 

FILE RECORD INPUT SEQUENTIAL BUFFERED 
BACKWARDS 

FILE RECORD INPUT SEQUENTIAL BUFFERED 
KEYED 

FILE RECORD INPUT SEQUENTIAL BUFFERED 
KEYED BACKWARDS 

FILE RECORD OUTPUT SEQUENTIAL BUFFERED 

FILE RECORD OUTPUT SEQUENTIAL BUFFERED 
KEYED 

FILE RECORD UPDATE SEQUENTIAL BUFFERED 

FILE RECORD UPDATE SEQUENTIAL BUFFERED 
KEYED 

FILE RECORD INPUT SEQUENTIAL UNBUFFERED 

FILE RECORD INPUT SEQUENTIAL UNBUFFERED 
BACKWARDS 

FILE RECORD INPUT SEQUENTIAL UNBUFFERED 
KEYED 

FILE RECORD INPUT SEQUENTIAL UNBUFFERED 
KEYED BACKWARDS 

FILE RECORD OUTPUT SEQUENTIAL UNBUFFERED 

FILE RECORD OUTPUT SEQUENTIAL UNBUFFERED 
KEYED 

FILE RECORD UPDATE SEQUENTIAL UNBUFFERED 

FILE RECORD UPDATE SEQUENTIAL UNBUFFERED 
KEYED 

FILE RECORD INPUT DIRECT KEYED 

FILE RECORD OUTPUT DIRECT KEYED 

FILE RECORD UPDATE DIRECT KEYED 

FILE RECORD UPDATE DIRECT KEYED EXCLUSIVE 



There are three modes of STREAM trans- 
mission: list-directed, data-directed, and 
edit-directed. All of these modes of 
transmission utilize data specifications as 
described in the next section. This sec- 
tion discusses the general characteristics 
of the transmission modes. The details of 
these transmission modes are discussed 
later in the chapter. 



LIST-DIRECTED TRANSMISSION 



List-directed transmission permits the 
user to specify the storage area to which 
data is assigned or from which data is 
transmitted without specifying the format. 



Input : The data in the stream is in the 
form of optionally signed valid constants 
or of expressions to represent complex 
constants. The program storage areas to 
which the data is to be assigned is speci- 
fied by a data list. 



Output : The data values to be transmitted 
are specified by a data list. The form of 
the data placed in the stream is a function 
of the data value and precision. 



DATA-DIRECTED TRANSMISSION 



Data-directed transmission permits the 
user to read or write self-identifying 
data. 



Input: The data in the stream is in the 
form of optionally signed valid constants 
and includes information identifying the 
program storage areas to which the data is 
to be assigned. 



Output : The data values to be transmitted 
are specified by a data list. The data 
placed in the stream has the form of 
constants and includes the name of the data 
being transmitted. 
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EDIT-DIRECTED TRANSMISSION 



Edit-directed transmission permits the 
user to specify the storage area to which 
data is to be assigned or from which data 
is to be transmitted and the form of data 
fields in the stream. 

Input: The form of the data in the stream 
is defined by a format list. The program 
storage areas to which the data is to be 
assigned is specified by a data list. 

Output: The data values to be transmitted 
are defined by a data list. The form that 
the data is to have in the stream is 
defined by a format list. 



DATA STREAM DATA SPECIFICATIONS 



Data specifications are given in GET and 
PUT statements to identify the data to be 
transmitted. The form of the data specifi- 
cations correspond to the modes of trans- 
mission. 



DATA LISTS 



1. On input , each data-list element for 
edit-directed and list-directed data 
may be one of the following: a scalar 
name, an array name, a structure name, 
a pseudo-variable, or a repetitive 
specification involving any of these 
elements. For a data- directed data 
specification, each data-list element 
may be an unsubscripted scalar, array 
or structure name. 



On output , each data-list element for 
edit-directed and list-directed data 
specifications may be one of the fol- 
lowing: a scalar expression, an array 
expression, a structure expression, or 
a repetitive specification involving 
any of these elements. For a data- 
directed data specification, each 
data-list element may be a scalar, 
array, or structure name, or a repeti- 
tive specification involving any of 
these elements. 

The elements of a data list must be of 
arithmetic or string data type. 

A data list must be enclosed in its 
own set of delimiting parentheses. 



List-directed and edit-directed data 
specifications require a data list to spec- 
ify the data items to be transmitted. A 
data-directed data specification may or may 
not include a data list. 

General format: 

(data-list) 
where "data list" is defined as: 
element [, element] ... 

Syntax rules: 

The nature of the elements depends upon 
whether the data list is used for input or 
for output. The rules for each are as 
follows : 



Repetitive Specification 

A repetitive specification appears in a 
data list as follows: 

(repetitive- specification) 

General format is shown in Figure 1. 

Syntax rules: 

1. Each repetitive specification must 
have its own set of delimiting paren- 
theses, the first preceding the first 
applicable element, and the second 
following the applicable DO specifi- 
cation. 



element [, element] .. .DO 



expression-1 



scalar- variable 
sea lar-pseudo- variable 
A specification has the following format: 

"TO expression- 2 [BY expression- 3] 
BY expression- 3 [TO expression- 2] _ 
Figure 1. General Format for Repetitive Specification 



= specification [, specif ication] .. . 



[WHILE (expression-U) ] 



u j 
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Each element in the element list of 
the repetitive specification is the 
same as those described for data-list 
elements above. 



3. The expressions in the specification 
are described as follows: 

a. Each expression in the specifi- 
cation is a scalar expression. 

b. In the specification, expression 1 
represents the starting value of 
the control variable or pseudo- 
variable. Expression 3 represents 
the increment to be added to the 
control variable after each 
repetition of data- list elements 
in the repetitive specification. 
Expression 2 represents the termi- 
nating value of the control varia- 
ble. The exact meaning of the 
specification is identical to that 
of a DO statement with the same 
specification. When the last 
specification is completed, con- 
trol passes to the next element in 
the data list. 

4. Repetitive specification may be nested 
to any depth. That is, each element 
in the element list may be a repeti- 
tive specification. A repetitive 
specification involving m elements 
repeated n times is equivalent to m*n 
elements. For example, consider the 
following statement: 

GET LIST (((A(I,J) DO I = 1 TO 2) 
DO J = 3 TO 4)) ; 

This is equivalent to: 

DO J = 3 TO 4; 

DO I = 1 TO 2; 

GET LIST (A (I, J)) ; 

END; 
END; 

It gives values to the elements of the 
array A in the following order: 

A(l,3), A(2,3), A(1,U), A(2,4) 

Consider the following example: 

POT LIST ( (A (J) , (B(I,J) DO 1=1 TO 10) 
DO J=5 TO 10)) ; 

This is equivalent to: 

DO J=5 TO 10; 
PUT LIST (A (J)) ; 

DO 1=1 TO 10; 

PUT LIST (B(I, J)) ; 

END ; 
END; 



Transmission of Data-List Elements 



If a data-list element is of complex 
mode, the real part is transmitted before 
the imaginary part. 



If a data-list element is an array name, 
the elements of the array are transmitted 
in row-major order, that is, with the 
rightmost subscript of the array varying 
most frequently. 



If a data-list element is a structure 
name, the elements of the structure are 
transmitted in the order specified in the 
structure declaration. For example, if the 
structure declaration was: 



DECLARE 1 A (10), 2 B, 2 C; 

then the statement 

PUT FILE (X) LIST (A) ; 

would result in the output being ordered as 
follows: 

A.B(l) A.C(l) A.B(2) A.C(2) A.B(3) 
A.C(3) . etc. 

If, however, the declaration had been: 

DECLARE 1 A, 2 B(10), 2 C(10); 

then the same PUT statement would produce: 

A.B(l) A.B(2) A.BC3) A.B(10) 

A.C(l) A.C(2) A.C(3) A.C(IO). 

If, within a data list used in an input 
statement, a variable is assigned a value, 
this new value is used in all later ref- 
erences in the data list, and the format 
list, if present. 

Example: 

In the following statement, B is a 
structure, XSTRING is a character string, 
and C is an array: 

DECLARE A FLOAT, IB, 2P, 2E, 3F, 
XSTRING CHARACTER (6), C(10) FIXED; 

The following data list, involving these 
data items, and the scalar variable A, may 
be used for input or output: 

(A,B, SUBSTR (XSTRING, 2), 
(C(I) DO I = 2 TO 7)) 

The data-list elements are transmitted 
in the followinq order: 
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A - the scalar variable is transmitted 

P f F - the elements of the structure B 
are transmitted 

SUBSTR (XSTRING, 2) - the second 
through sixth characters of the 
string XSTRING are transmitted 

C(2), CO),..-, C(7) - the six speci- 
fied elements of the array are 
transmitted 



LIST-DIRECTED DATA SPECIFICATION 

General format: 

LIST (data-list) 

Syntax rules: 

The "data list" is described in the 
preceding discussion. 

List-Directed Input Format 



When the data item is an array name and 
the data consists of constants, the first 
constant is assigned to the first element 
of the array, the following constant to the 
second element, etc. , in row-major order. 

A structure name in the data list rep- 
resents a list of the contained scalar 
variables and arrays in the order specified 
in the structure description. 

Data in the stream has one of the 
following general forms: 

1+ J -] arithmetic- constant 
| character-string-constant 
j bit-string-constant 

[+ ] -] resal-constant {+ | -> imaginary- constant 

Sterling constants cannot be used. A 
string constant must be one of the two 
permitted forms listed above. Iteration 
and string repetition factors are not 
allowed. 

Constants and complex expressions may be 
surrounded by blanks, which are not treated 
as part of the data. However, blanks 
cannot appear between the optional sign and 
the constant, nor can they precede the 
central sign in a complex expression. 

Data items in the stream must be sepa- 
rated either by a blank or by a comma. 
This separator may be preceded and/or fol- 
lowed by an arbitrary number of blanks. A 



null field in the stream is indicated 
either by the very first non-blank charac- 
ter in the stream being a comma, or by two 
adjacent commas separated by an arbitrary 
number of blanks. A null field specifies 
that the value of the associated item in 
the data list specification is to remain 
unchanged. 

The transmission of the list of con- 
stants on input is terminated by expiration 
of the data list or by the end-of-file 
condition. In the former case, positioning 
is always at the character following the 
first blank or comma following the last 
data item. More than one blank can separ- 
ate two data items, and a comma separator 
may be preceded or followed by one or more 
blanks. In such cases, a subsequent list- 
or data-directed GET will ignore interven- 
ing blanks and the comma (if present) , and 
will access the next data item. However, 
if an edit-directed GET should follow, the 
first character accessed will be the char- 
acter to which the file has been positioned 
(in other worcis, the next data item will 
begin with the first character following 
the blank or comma that separated it from 
the previous data item) . 

If the data is a character-string con- 
stant, the surrounding quotation marks are 
deleted and the enclosed characters inter- 
preted as a character string. 

If the data is a bit-string constant, it 
is interpreted as a bit string. 

If the data is an arithmetic constant or 
complex expression, it is converted to 
coded arithmetic with the base, scale, 
mode, and precision implied by the con- 
stant. 

The list item is then examined and the 
interpreted string value is assigned to it 
as shown in Figure 2. 

The type conversions are described in 
Chapter 3, except arithmetic to character 
conversion which is described below under 
"List-Directed Output Format." 



List-Directed Output Format 



The values of the scalar variables in 
the data list are converted to a character 
representation of the data value, as des- 
cribed below, and transmitted to the data 
stream. 

In general, a blank is used to separate 
data items transmitted. However, for PRINT 
files, implementation-defined tabs are pro- 
vided such that the printing of a data item 
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Stream Item 

Character 
string 

Bit string 
Arithmetic 



Data List 



Arithmetic 
Character String 
Bit String 

Arithmetic 
Character String 
Bit String 

Arithmetic 
Character String 
Bit string 



Conversion 



Character to Arithmetic 
Character string assignment 
Character to bit string 

Bit string to Arithmetic 

Bit string to Character string 

Bit string assignment 

Arithmetic type conversion 
Arithmetic to Character string 
Arithmetic to Bit string 



L J. X 

Figure 2. List-Directed Input Conversion 



.. j 



is always followed by a positioning to the 
next available tab position. If a numeric 
data item is longer than the number of 
characters remaining on the current line, 
the entire item will be printed starting at 
the beginning of the next line. (Of 
course, if the length of the item is 
greater than the size of the line, split- 
ting must occur.) 

The length of the data field placed in 
the data set is a function of the internal 
precision and value of the data item. 



to the value of E in a 
number. 



floating-point 



CODED ARITHMETIC DATA: 



The external form 
data is a possibly 



of coded arithmetic 
signed valid decimal constant whose field 
width, w, is a function of the internal 
precision declared for the data item and 
the value of the data item. In the discus- 
sion below, the following symbols are used: 

1. The letter w represents the field 
width, which is defined as the length 
of the data field. 

2. The letter d represents the number of 
positions in the external data field 
to the right of the decimal point. 

3. The letter p_ represents the total 
number of digits in the data item 
after any necessary conversion to 
decimal. 

4. The letter q represents the scale 
factor of the data item after any 
necessary conversion to decimal. 

5. The letter s represents a scaling 
factor as described for floating-point 
data. 

6. The letters yyy represent a scaling 
factor for fixed-point data. The let- 
ter F actually appears in the output 
stream to indicate the presence of a 
scaling factor. Its value is similar 



7. The letter x represents any decimal 
digit . 

8. The letter b represents a blank posi- 
tion in the output. 

9. The letter n represents the number of 
decimal digits in the exponent, which 
is defined separately for each implem- 
entation. 

There are five kinds of coded arithmetic 
data to consider: coded real fixed-point 
decimal data, coded real fixed-point binary 
data, coded real floating-point decimal 
data, coded real floating-point binary 
data, and coded complex data. 

Note: The discussions below apply to coded 
arithmetic data only when the value of the 
data item to be transmitted is greater than 
or less than zero. If the converted deci- 
mal value of a fixed-point item is equal to 
zero, the following rules apply: 

1. If q = 0, the representation transmit- 
ted is a single zero preceded by p+2 
blanks. 

2. If p>=q>0, the representation trans- 
mitted is a single zero preceded by 
p-q+1 blanks, and followed by a deci- 
mal point and q zeros. 

3. If p<q or q<0, the representation 
transmitted is a single zero preceded 
by p blanks and followed by FC+|-> n 
digits. 

If the converted decimal value of a 
floating-point item is equal to zero, the 
representation transmitted is a single 
zero, followed by a decimal point, p-1 
zeros, and E+n zeros. 
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Coded Real Fixed-Point Decimal Data: 



A 



decimal fixed-point source with precision 
(p,q) is converted to character-string rep- 
resentation as follows: 



1. If p>=q>=0 (that is, if the assumed 
decimal point lies within the field of 
the internal representation) then: 

a. The constant is right adjusted in 
a field of width p+3. 

b. Leading zeros are replaced by 
blanks, except for a single zero 
that immediately precedes the 
decimal point of a fractional num- 
ber. 

c. If the value is negative, a minus 
sign precedes the first signifi- 
cant digit (or the zero before the 
point of a fractional number) . 
Positive values are unsigned . 

d. Unless the source is an integer, 
the constant has q fractional 
digits. If the source is an inte- 
ger, there is no decimal point. 

2. If q is negative or greater than p, a 
scaling factor is appended to the 
right of the constant. The constant 
itself is of the same form as an 
integer. The scaling factor has the 
form: 

F{ + |->nnn 

where {+|->nnn has the value -q. 

The number of digits in the scaling 
factor is just sufficient to contain 
the value of q without leading zeros. 

The length of the intermediate string 
is: 

p+3 + k 

where k is the number of digits neces- 
sary to represent the value of q (not 
including a sign or the letter F) . 
For example, given: 

DECLARE A FIXED(4,-3), 
C CHAR (10) ; 
A=1234.0E3; 

C=A; 

The intermediate string generated in 
converting A would be: 

bl234F+3 

which, when assigned to C, would give: 

bl234F+3bb 



Coded Real Fixed-Point Binary Data: The 
data item is converted to fixed-point deci- 
mal and is transmitted as coded real fixed- 
point decimal data. 

Coded Real Floating-Point Decimal Data: 
The data item is converted according to the 
rules for floating-point format items, E(w, 
d, s). For E-conversion, w = p + n+U, d = 
p - 1 and s = p. 

Coded Real Floating-Point Binary Data: The 
data item is converted to floating-point 
decimal with a precision (p) and 
transmitted as coded real floating-point 
decimal data. 

Coded Complex Data: The data is externally 
represented as two immediately adjacent 
real data fields, the left hand field being 
the real part of the data and the right- 
hand field being the imaginary part of the 
data. 

A sign always precedes the imaginary 
part. If the value of the imaginary part 
is greater than, or equal to, zero, the 
sign is plus; if the value of the imaginary 
part is less than zero, the sign is minus. 
The imaginary part is always followed by 
the letter I. The field width of the 
external representation is 2w + 1, where w 
is as defined above for fixed-point or 
floating-point output. 



NUMERIC CHARACTER 



DATA: The 



base of 

numeric character data may be decimal or 
binary. 

Numeric Decimal Data: The external format 
and field width of the numeric decimal data 
item is that described by the associated 
picture specification. 

Numeric Binary Data: The external format 
and field width of the numeric binary data 
item is that described by the associated 
picture specification. The binary digits 
and 1 are represented by the characters 
and 1. 

Complex Numeric Data: The real and imag- 
inary parts are transmitted as above and 
the external representation is the conca- 
tenation of the real and imaginary parts. 
The field width is 2w, where w is the 
number of character positions (or bits, if 
binary) allocated to the real part of the 
numeric data; no I is appended. 

CH ARACTER-STRING DATA: The contents of the 
character string are written out. If the 
file has the attribute PRINT, enclosing 
quotation marks are not supplied, and con- 
tained quotation marks are unmodified. The 
field width is the current length of the 
string. If the file does not have the 
attribute PRINT, enclosing quotation marks 
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are supplied, and contained quotation marks 
are replaced by two quotation marks. The 
field width is the current lenqth of the 
strinq plus the number of added quotation 
marks. 



3. Recoqnition of a semicolon in the 
stream on input causes transmission to 
cease. On output a semicolon is writ- 
ten into the stream after the last 
data item transmitted. 



BIT- STR ING DATA: The format of the data on 
the external medium is that of a bit-strinq 
constant, that is, the value is enclosed in 
quotation marks and followed by the letter 
B. The binary bits are represented by the 
characters and 1. The field width is 
p+3, where p is the current lenqth of the 
strinq, and the three additional positions 
are for the two quotation marks and the 
letter B. 

Examples of list-directed data specifi- 
cations: 

1. LIST (CARD. RATE, DYNAMIC_FLOW) 

2. LIST ((THICKNESS (DISTANCE) DO DIS- 
TANCE = 1 TO 1000 ) ) 

3. LIST (P,Z,M,R) 

4. LIST (A*B/C, (X+Y)**2) 

The specification in example 4 may only 
be used for output. 



DATA-DIRECTED DATA SPECIFICATION 



General format: 
Option 1 

DATA 
Option 2 

DATA (data-list) 

General rules: 

1. The data list is described in "Data 
Lists," in this chapter. It cannot 
include parameters, or based or 
defined variables. Names of structure 
elements need only have enouqh quali- 
fication to resolve any ambiquity; 
full qualification is not required. 

2. On input, option 1 implies' that all of 
the data items to be transmitted are 
known to the block contain inq the GET 
statement; the NAME condition will be 
raised if a name that is not known to 
the block is transmitted. On output, 
it specifies that all data items known 
to the block and allowed in data- 
directed transmission are to be 
transmitted. 



Data-Directed Data in the Stream 



The data in the stream associated with 
data-directed transmission is in the form 
of a list of scalar assiqnments havinq the 
followinq qeneral format: 

scalar-variable = constant 

[{b|,} scalar-variable = constant]...; 

General rules: 

1. The "scalar variable" may be a sub- 
scripted name with decimal inteqer 
constant subscripts. 

2. On input, the scalar assiqnments may 
be separated by either a blank (b in 
the above format) or a comma. On 
output, the assiqnments are separated 
by blanks. 

3. The constant in the qeneral format 
above has one of the forms as des- 
cribed under "List-Directed Input 
Format" in this chapter. 

General rules for data-directed input : 

1. If the data specification in option 1 
is used, the names in the stream may 
be any fully qualified name known at 
the point of transmission. 

2. If option 2 is used, each element of 
the data list must be an unsubscripted 
scalar, array, or structure name. The 
names in the stream must appear in the 
data list; however, the order of the 
names need not be the same and the 
data list may include names that do 
not appear in the stream. If a name 
appears in the stream but not in the 
data list, the NAME condition will be 
raised. 

For example, consider the followinq 
data list, where A, B, C, and D are 
names of scalar variables: 

DATA (B, A, C, D) 

This data list may be associated with 
the followinq input data stream: 

A=2.5, B=. 00476, D=125, Z='ABC; 
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Note that C appears in the data list 
but not in the stream and that Z, not 
in the data list, will raise the NAME 
condition. 



If the data list in Option 2 includes 
the name of an array, subscripted 
references to that array may appear in 
the stream. The entire array need not 
appear. 



Leit X be the name of a two dimen- 
sional array declared as follows: 



DECLARE X (2, 3) ; 

Consider the following data list and 
input, data stream: 

Data List Input Data Stream 
DATA (X) X(l,l) = 7.95, X(l,2) = 
8085, X(l,3) = 73; 

Although the data list has only the 
name of the array, the associated 
input stream may contain values for 
individual elements of the array. 

If the data list includes the names of 
structure elements, then fully quali- 
fied names of the items must appear in 
the stream. Consider the following 
structures : 

DECLARE 1 CARD IN, 2 PARTNO , 2 DESCRP, 
2 PRICE, 
1 CARDOUT, 2 PARTNO, 2 DESCRP, 
2 PRICE; 

If it is desired to read a value for 
CARDIN. PARTNO, then the data list and 
input data stream have the following 
forms : 



Data L ist 

DATA (CARDIN. PARTNO) 



Input 
Data Stream 
CARDIN. PARTNO = 
737314; 



Interleaved subscripts cannot appear 
in qualified names in the stream. All 
subscripts must be moved all the way 
to the right, following the last name 
of the qualified name. For example, 
assume that Y is declared as follows: 

DECLARE 1 Y(5,5), 2 A(10), 3 B, 3 C, 

3 D; 
An element name would have to appear 
in the stream as follows: 

Y.A.B(2,3,<?)=8.72 

The name in the data list, of course, 
could not contain the subscript. 



General rules for data-directed output : 



1. An element of the data list, which can 
be subscripted may be a scalar varia- 
ble, an array variable, a structure 
variable, a repetitive specification 
involving any of these elements or 
further repetitive specifications. 
The data with names appearing in the 
data list is transmitted in the form 
of a list of scalar assignments sepa- 
rated by blanks and terminated by a 
semicolon. Tabs and line splitting 
for PRINT file data items follow the 
rules set for list-directed transmis- 
sion. 



Array variables in the data list are 
treated as a list of the contained 
subscripted elements in row-major 
order. 

Let X be an array declared as follows: 

DECLARE X (2,4); 

Let X appear in a data list as fol- 
lows: 



DATA (X) 

Then, on output, the 
stream is as follows: 



output 



data 



X(l,l)= 1 X(l,2)= 2 X(l,3)= 3 X(l,4)= 4 
X(2,l)= 5 X(2,2)= 6 X(2,3)= 7 X(2,4)= 8; 

Items that are part of a structure 
appearing in the data list are trans- 
mitted with the full qualification, 
but subscripts follow the qualified 
names rather than being interleaved. 
If a data list is specified for a 
structure element transmitted under 
data- directed output as follows: 

DATA (Y(1,3).Q) 

then the associated data field in the 
output stream is as follows: 

Y.Q(1,3) = 3.756; 

Structure names in the data list are 
interpreted as a list of the contained 
scalar or array elements, and arrays 
are treated as above. 

Consider the following structure: 

1 A, 2 B, 2 C, 3 D 

If a data list for data-directed out- 
put is as follows: 

DATA (A) 
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AB: PROCEDURE; 

DECLARE A (6) , B(7) ; 
GET FILE (X) DATA (B) ; 
DO I = 1 TO 6; 
A (I) = B (1+1) + B (I) 
END; 

PUT FILE (Y) DATA (A) ; 
END AB; 
Figure 3. Example of Data-Directed Transmission, both Input and Output 



Input Stream 

B(l)=l, B(2)=2 f B(3)=3, 

BU)=1, B(5)=2, B(6)=3, B(7)=U; 

Output Stream 

A(l)= 3 A(2)= 5 A(3)= 4 A(4) = 3 

A(5)= 5 A(6)= 7; 

L J 



then, if the values of B and D were 2 
and 17 respectively, the associated 
data fields in the output stream would 
be as follows: 

A.B== 2 A.C.D= 17; 



Length of Data-Directed Data Fields 



The length of the data field on the 
external medium is a function of the inter- 
nal precision, the value of the data item 
being written, and the lenqth of the data 
identifier and its associated subscript 
list. The field length for coded arithmet- 
ic data, numeric field data, and bit-string 
data is the same as described for list- 
directed output (see "Format of List- 
Directed Output Fields"). Subscripts are 
printed as possibly signed decimal integer 
constants with no leading blanks. 

For character- string data, the contents 
of the character string are written out 
enclosed in quotation marks. Each 
quotation mark contained within the charac- 
ter string is represented by two successive 
quotation marks. 



Example: 



Assume that A is declared as a one- 
dimensional array of six elements; B is a 
one- dimensional array of seven elements.. 
The procedure in Figure 3 calculates and 
writes out values for A (I) = B(I+1) + B(I). 



EDIT-DIRECTED DATA SPECIFICATION 



General format: 

EDIT (data-list) (format-list) 
[ (data-list) (format- list) ] . . . 

General rules: 

1. The data list general rules are given 
in "Data Lists," and the format list 
general rules in "Format Lists." This 
form of transmission can be used for 
sterling values. 

2. On output, the value of each data item 
in the data list is converted to a 
format specified by the associated 
format item in the format list. The 
first scalar data item is associated 
with the first format item. If the 
format item is a control format item, 
the control item is executed, and the 
data item associated with the first 
name in the data list is then 
associated with the next format item. 
The second scalar data item is then 
associated with the second data format 
item, etc. Suppose the format list 
specifies j data format items, and the 
data list specifies k data items. 
Then, if j<k, after j scalar data 
items have been transmitted, the for- 
mat list is re-used, the (j+l)th sca- 
lar item being associated with the 
first format item, etc. This re-use 
is performed as many times as 
required. If j>k, excessive format 
items are ignored. 

3. For input, data in the stream is 
considered to be a continuous string 
of characters not separated into indi- 
vidual data items. The number of 
characters for each data item is spec- 
ified by a format item in the format 
list. The characters are treated 
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according to the associated format 
item. 

4. An array or a structure in a data list 
is equivalent to n data items, where n 
is the number of scalar elements in 
the array or structure. 

5. The specified transmission is complete 
when the last data item has been 
processed using its corresponding for- 
mat item. Subsequent format items, 
including control format items, are 
ignored. 

Examples : 

The first of the following examples is 
an edit-directed input specification, and 
the second is an output specification. 

1. EDIT (NAME, DATE, SALARY) 

(A(COLA-COLB) , X(2), A(6), F(M +2,2)) 

2. EDIT ('INVENTORY-' ]J INUM, INVCODE) 
(A, F(5)) 



FORMAT LISTS 



The edit-directed data specification 
requires an associated format list. 

General format of a format list: 

(format- list) 

where "format list" is defined as: 



{item ^ 
n item / 
n (format-list)) 



Syntax rules: 



item 
n item 
_, n (format- list). 



1. Each "item" represents a format item 
as described below. 

2. The letter n represents an iteration 
factor, which is either an expression 
enclosed in parentheses, or a decimal 
integer constant. If a decimal inte- 
ger constant is used, at least one 
blank must must follow it. The itera- 
tion factor specifies that the asso- 
ciated format item is to be used n 
successive times. A zero or negative 
iteration factor specifies that the 
associated format item is to be 
skipped and not used (the data list 
item will be associated with the next 
format item) . If an expression is 
used to represent the iteration fac- 
tor, it is evaluated and converted to 
an integer once for each set of itera- 



tions. The associated format item is 
that item or list of items to the 
right of the iteration factor. 

3. A format list always must be delimited 
by parentheses. 

General rule: 

There are two types of format items: 
data format items and control format 
items. Data format items specify the 
form of data fields in the stream. 
Control format items specify page, line, 
and spacing operations. 



Data Format Items 



Data format items describe 
resentation in the data stream. 



data rep- 



The discussion of format items requires 
the following definitions: 

1. The letter w represents the length of 
the data field, in characters, used by 
the external representation (including 
signs, decimal points, blanks, and the 
letter E as used in the representation 
of constants) . 

2. The letter d represents the number of 
positions after the decimal point. 

3. The letter s represents the number of 
significant digits to appear. 

4. The letter p represents a scaling 
factor, which may be positive or nega- 
tive. 

Any of the quantities w, d, s_, and p_ may 
be specified by a scalar expression. When 
the format item is used, the expression is 
evaluated and converted to an integer. If 
w<0 in a format specification, then the 
associated data and format list items are 
skipped, unless, on input, w=0 and the data 
item is a string, in which case, the data 
value is taken as the null string. On 
output, the format list item is skipped if 
w is less than or equal to zero. The 
quantity d must be less than or equal to s, 
and s must be less than or equal to w. 

On input, the data item in the external 
data field is treated as if it conformed to 
the characteristics described by the format 
it em. 

There are six format items associated 
with data: fixed-point (F) , floating-point 
(E) , complex (C) , picture specification 
(P) , character string (A) , and bit string 
(B). 
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FIX E D-P O INT FORMAT ITEMS: Decimal numeric 
data may be described, by a fixed-point 
format item. 

General format: 

Option 1 
F(w) 

Option 2 

F(w,d) 

Option 3 

F(w, d, p) 

General rules: 

1. On input, the data item in the exter- 
nal data field is the character rep- 
resentation of a decimal fixed-point 
number anywhere in a field of width w. 
Leading and trailing blanks are 
ignored, but if the data consists only 
of blanks, it is interpreted as zero. 

In option 2, if no decimal point 
appears in the number, it is assumed 
to appear immediately before the last 
d digits (trailing blanks are 
ignored). If a decimal point does 
appear, it overrides the d specifi- 
cation. Option 1 is treated as Option 
2, with d equal to zero. 

In Option 3, the scaling factor 
effectively multiplies the external 
data value by 10 raised to the value 
of p. If p is positive, the number is 
treated as though the decimal point 
appeared p places to the right of its 
given position. If p_ is negative, the 
data is treated as though the decimal 
point appeared p places to the left of 
its given position. The given posi- 
tion of the decimal point is that 
indicated either by an actual point, 
if it is given, or by d, in the 
absence of an actual point. 

2. On output, the external data is a 
decimal fixed-point number, right- 
adjusted in a field of width w. If 
the right-adjustment results in low- 
order digits being removed, the 
remaining lowest-order digit is round- 
ed if it was followed by a digit 
greater than or equal to 5. 

In Option 1, only the integer por- 
tion of the number is written; no 
decimal point appears. 

In Option 2, both the integer and 
fractional parts of the number are 
written. If d is greater than 0, a 
decimal point is inserted before the 
last d digits, and the value is 
appropriately positioned. Trailing 



zeros are supplied if the number of 
fractional digits is less than d 
(where d must be less than w) . If the 
absolute value is less than 1, a zero 
precedes the point; if w is not large 
enough to include the zero, the SIZE 
condition wll be raised. 

In Option 3, the scaling factor 
effectively multiplies the internal 
data value by ten raised to the power 
of p, before it is edited into its 
external character representation. If 
d is zero, only the integer portion of 
the number is considered. 

For all options, if the value of 
the data item is less than zero, a 
minus sign will be prefixed to the 
external character representation; if 
it is greater than or equal to zero, 
no sign will appear. Therefore, for 
negative values, w must encompass both 
sign and decimal point. If the length 
of the data item is greater than w, 
the SIZE condition is raised. 



FLOATING-POINT 



FORMAT 



ITEMS 



Decimal 

described by a 



numeric data may be 
floating-point format item. 

General format: 

E(w, d[, s]) 

General rules: 

1. On input, the data item in the exter- 
nal data field is an optionally signed 
character representation of a decimal 
floating-point number anywhere within 
a field of width w. An all- blank 
field is rot treated as zero; it 
causes the CONVERSION condition to be 
raised. The mantissa is a fixed deci- 
mal constant. 

The external form of the number is 
as follows: 



[±] mantissa 



([El ±\ 
\z [±]j 



exponent 



a. If there is no decimal point in 
the data field, the decimal point 
is assumed to be before the last d 
digits of the mantissa. If there 
is a decimal point in the data 
field, it overrides the decimal 
point placement specified by d. 
Note that trailing blanks in the 
data field are ignored. 

b. The "exponent" is a decimal inte- 
ger constant. If the exponent and 
the preceding E or sign are omit- 
ted, a zero exponent is assumed. 
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2. On output, the data item in the data 
field has the following general form: 

[-] s-d digits. d digits E{±> exponent 

a. The "exponent" is a decimal inte- 
ger constant of n digits, where n 
is defined individually for each 
implementation. The exponent is 
adjusted so that the leading digit 
of the mantissa is nonzero. 
Unless the value of the data is 
zero, at least one non-fractional 
significant digit always will 
appear. In the case of the value 
zero, one zero digit appears 
before the point and d zero digits 
after the point; the exponent is 
also zero. 

b. If the above form does not fill 
the field of width w, it is right- 
adjusted. If the right-adjustment 
results in low-order digits being 
removed, the remaining lowest- 
order digit is rounded if it was 
followed by a digit greater than 
or equal to 5. If s is omitted it 
is taken as equal to d + 1. The 
field width w must be greater than 
or equal to s + n + 3 for non- 
negative values, and s + n + U for 
negative values of the data item. 
However, if d is zero, the decimal 
point is not written, and w is 
equal to s+n+2. If the length of 
the data item is greater than w, 
the SIZE condition is raised. 



COMPLEX F ORMAT I TEMS; Complex data may be 
described by a complex format item. 

General format: 



C (real-format-item 

[, real- format- item] ) 

General rules: 

1. Each "real format item" is specified 
by F, E, or P formats. P can specify 
a numeric field only; it cannot 
specify a sterling picture. 

2. On input, the external data is the 
real and imaginary parts of the com- 
plex number in adjacent fields des- 
cribed by the two contained format 
items. If the second real format item 
is omitted, it is assumed to be the 
same as the first. 

3. On output, the form of the real and 
imaginary parts is specified by the 
real format items. If the second is 
omitted, it is assumed to be the same 
as the first. 



PICTURE FORMAT ITEM: Numeric data may be 
described by a numeric picture using the P 
format item. The picture format item 
allows transmission of sterling data items. 

General format: 

P ' numeri c-picture- speci f ica t ion * 

The "numeric picture specification" is 
described in "The PICTURE Attribute," in 
Chapter 4. 

On input, the picture specification des- 
cribes the form of the data on the external 
medium and how it is to be interpreted 
numerically. 

On output, the value of the list item is 
edited to the form specified by the picture 
before it is transmitted. 

BIT- STRING FORMAT ITEMS: The bit- string 
item describes the data field representa- 
tion of a bit string using the characters 
and 1. 

General format: 



(w) 



General rules: 

1. In the case of input, w is always 
required. For output, if w is omit- 
ted, it is taken to be the current 
length of the associated bit-string 
data- list element; w must be specified 
if conversion is to be performed. 

2. On input, the data field is a charac- 
ter representation of bit string any- 
where within the field of width w. If 
the data field contains only blanks, 
or any characters other than zero or 
one, the CONVERSION condition is 
raised. 

3. On output, the character representa- 
tion of the bit string is left- 
adjusted in the field of width w. 
Truncation, if necessary, is performed 
on the right. Blanks are used for 
padding. 

CHARACTER- STRING FORMAT ITEMS: Character 
data may be described by a character-string 
format item. 

General format: 



(w) 



* char act er- picture- specif ica t ion* 

General rules: 

1,. The external representation is 
string of w characters. 
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On input, truncation, if necessary, is 
performed on the right. If the asso- 
ciated list element is too short, it 
is extended on the right with blanks. 
If the picture form is used, w is 
implied. Checking is performed. On 
input, w is always required. 

On output, w can be omitted, in which 
case w is taken to be the current 
length of the string (or the length of 
the converted character string) . 



Control Format Items 



There are three types of control format 
items, the spacing format item X, the 
positioning format items SKIP and COLUMN, 
and the printing format items PAGE and 
LINE. 

Spacing Format Item 

The spacing format item specifies rela- 
tive horizontal spacing. 

General format: 

X (w) 

General rules: 

1. On input, the format item specifies 
that the next w characters of the 
stream are to be ignored. 

2. On output, the format item specifies 
that w blank characters are to be 
inserted into the stream. 

3. If w is less than zero, it is taken as 
zero. 

Positioning Format Items 

The positioning format items specify 
positioning to a new current line or to a 
specified column in the current (or next) 
line. (The length of a line is derived 
from the linesize of the file.) 

General format: 

SKIP [(w)] 
COLUMN (w) 

General rules: 

1. The SKIP format item operates in the 
same manner as the SKIP option of a 
GET or PUT statement. 

2. The COLUMN format item specifies that 
the file is to be positioned to the 
wth column of the current line. If 
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Printing Format Items 

The printing format items can be used 
only with STREAM PRINT files. 

General format: 

PAGE 
LINE (w) 

General rule: 

The PAGE and LINE format items operate 
in the same manner as the corresponding 
options with the PUT statement. 

Note that X and COLUMN specify, respec- 
tively, relative horizontal spacina and 
absolute horizontal spacing. Similarly, 
SKIP and LINE specify relative vertical 
positioning and absolute vertical position- 
ing. The first line on any page is line 
number one . 



Remote Format Item 



If it is desired to locate format items 
remotely from a format list, the remote 
format item, R, may be used. 

General format: 

R (statement-label-designator) 

General rules: 

1. The "statement label designator" is a 
label constant or a label variable 
that has as its value the statement 
label of a FORMAT statement. The 
FORMAT statement includes a format 
list that is taken to replace the 
format item. 

2. The R format item and the specified 
FORMAT statement must be internal to 
the same invocation of the same block. 

3. There can be no recursion. That is, a 
remote FORMAT statement may not con- 
tain an R format item which names 
itself as a statement label designa- 
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tor, nor may it name another remote 
FORMAT statement that will lead to the 
naming of the original FORMAT state- 
ment through a statement label desig- 
nator. This is assured if the FORMAT 
statement referred to by a remote 
format item does not itself contain a 
further remote format item. 



LIST (data-list) 

DATA [ (data- list)] 

EDIT (data-list) (format-list) 

[(data-list) (format-list)] . . . 

Data lists and format lists are dis- 
cussed earlier in this chapter. Format 
lists may use any of the following format 
items : 



4. Any conditions enabled for the GET or 
PUT statement must be correspondingly 
enabled for the remote FORMAT state- 
ments utilized. 

5. If the GET or PUT statement is the 
single statement of an on-unit, it 
cannot contciin a remote format item. 

6. A FORMAT statement encountered in 
seguential flow of control is ignored. 



A,B,C,E,F,P,R,X, 
SKIP, COLUMN 

PAGE, LINE 



A,B,C,E,F,P,R,X 



which may be used 
with any STREAM file 

which may be used 
only with STREAM 
OUTPUT PRINT files 
which may be used 
with the STRING 
option 



RECORD TRANSMISSION 



DATA STREAM TRANSMISSION STATEMENTS 



This section provides a summary of the 
allowed STREAM transmission statements, 
along with their options, according to file 
attributes (the statements are discussed 
individually in Chapter 8) . 

STREAM INPUT: 



GET 



FILE (filename) [COPY] 

[SKIPt (scalar-expression) ] ] 

STRING (scalar-character- string- 
variable) 



[data-specification] ; 



STREAM 0UTPU1 



PUT 



FILE 



(filename) 
[SKIP[ (scalar-expression) ] ] 
STRING (sccilar-character-string- 
variable) 



[data-specification] ; 

STREAM OUT PUT PRINT: 

PUT [FILE (filename)] 

[ data- specif i cation] 

[PAGE [LINE (expression)] 
SKIP [ (expression) ] 
LINE (expression) 



Note: The "data specification" can be 
omitted only if the SKIP option or one of 
the printing options appears. 

The data specification can have one of 
the following forms: 



Data sets that contain discrete records 
or which are to be created as a collection 
of discrete records may be manipulated with 
record operation statements. The record 
operation statements are READ, WRITE, REW- 
RITE, LOCATE, DELETE, and UNLOCK. A gener- 
al description of these statements is con- 
tained in this chapter, and they are des- 
cribed completely in Chapter 8. The 
records obtained from data sets or dis- 
patched to data sets are defined in terms 
of the data attributes of a variable. For 
input operations the record is obtained 
from the data set and placed intact into 
the variable. For output operations, the 
variable is transmitted intact into the 
data set. 

The variables involved in record trans- 
mission must be unsubscripted, of level 1 
(scalar variables and array variables are 
of level 1 by default) , and of any storage 
class. The variables cannot be parameters 
or defined variables. They may contain 
VARYING length strings. They may contain 
LABEL, EVENT, TASK, and POINTER variables, 
but such data may lose its validity in 
transmission. OFFSET variables, however, 
will maintain their validity. 

With RECORD transmission, it is possible 
to operate upon the record in a buffer if 
the file has the BUFFERED attribute. Oper- 
ations within the buffer are accomplished 
through the use of a based variable , which 
describes the data attributes of the 
record, and a pointer variable , which iden- 
tifies the location of the record within 
the buffer. Note that an offset variable 
cannot be used, since an offset value is 
relative only to its associated area varia- 
ble. 
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For input/output operations specifying 
based variables, the pointer value is set 
by the SET option in the READ or LOCATE 
statements. 



READ FILE (filename) 
INTO (variable) 
KEY (expression) ; 



RECORD TRANSMISSION STATEMENTS 



This section provides a summary of the 
allowed RECORD transmission statements, 
along with their options, according to file 
attributes (the statements are discussed 
individually in Chapter 8) . 

SEQUENTIAL BUFFERED INPUT: 

READ FILE (filename) 

INTO (variable) [KEYTO 
(character-string-variable) ] ; 

READ FILE (filename) 

SET (pointer-variable) 
[KEYTO 
(character-string-variable) ] ; 

READ FILE (filename) 

[IGNORE (expression)]; 

READ FILE (filename) 
INTO (variable) 
KEY (expression) ; 

READ FILE (filename) 

SET (pointer-variable) 
KEY (expression) ; 

SEQUENT IAL BUFFERED OUTPUT: 

WRITE FILE (filename) 
FROM (variable) 
[KEYFROM (expression)]; 

LOCATE variable FILE (filename) 
[ SET ( pointer- variable) ] 
[KEYFROM (expression)]; 

SEQU ENTI AL BUFFERED UPDATE: 

READ FILE (filename) 
INTO (variable) 
[KEYTO 
(character- string- variable) ] ; 

READ FILE (filename) 

SET (pointer-variable) 
[KEYTO 
(character-string-variable) ] ; 

REWRITE FILE (filename) ; 

REWRITE FILE (filename) 
FROM (variable) ; 

READ FILE (filename) 

[IGNORE (expression) ] ; 



READ FILE (filename) 

SET (pointer-variable) 
KEY (expression) ; 



DELETE FILE(f ilename) ; 



SEQUENTIAL UNBUFFERED INPUT: 

READ FILE (filename) 
INTO (variable) 
[KEYTO 

(character-string-variable) ] 
[EVENT (event-variable)]; 



READ FILE (filename) 

[IGNORE (expression)] 
[EVENT ( event- var iabl e) ] ; 

READ FILE (filename) 
INTO (variable 
KEY (expression) 
[EVENT (event-variable)]; 

SEQUENTIAL UNBUFFERED OUTPUT: 

WRITE FILE (filename) 
FROM (variable) 
[KEYFROM (expression)] 
[EVENT (event-variable)]; 

SEQUENTIAL UNBUFFERED UPDATE: 

READ FILE (filename) 
INTO (variable) 
[KE^TO 

( character-string-variable) ] 
[EVENT (event-variable)]; 

REWRITE FILE (filename) 
FROM (variable) 
[EVENT (event-variable)]; 

READ FILE (filename) 

[IGNORE (expression)] 
[EVENT (event-vari'able) ] ; 

READ FILE (filename) 
INTO (variable) 
KEY (expression) 
[EVENT (event-variable)]; 

DELETE FILE (filename) 

[EVENT ( event- variable) ] ; 

DIRECT INPUT: 



READ FILE (filename) 
INTO (variable) 
KEY (expression) 
[EVENT ( event- var iabl e) ] ; 
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DIRECT OUTPUT: 



WRITE FILE (filename) 
FROM (variable) 
KEYFROM (expression) 
[EVENT (event- variable) ] ; 

DIRECT UPDATE: 

READ FILE (filename) 
INTO (variable) 
KEY (expression) 
[EVENT (event-variable) ] ; 

REWRITE FILE (filename) 
FROM (variable) 
KEY (expression) 
[EVENT (event-variable) 3 ; 

WRITE FILE (filename) 
FROM (variable) 
KEYFROM (expression) 
[EVENT ( event- varia ble) ] ; 

DELETE FILE (filename) 
KEY (expression) 
[EVENT (event-variable) ] ; 

DIRECT UPDATE EXCLUSIVE: 

READ FILE (filename) 
INTO (variable) 
KEY (expression) [NOLOCK] 
[EVENT (event- variable) ] ; 

REWRITE FILE (filename) 
FROM (variable) 
KEY (expression) 
[EVENT (event-variable) ] ; 

WRITE FILE (filename) 
FROM (variable) 
KEYFROM (expression) 
[EVENT (event- varia ble) ] ; 

DELETE FILE (filename) 
KEY (expression) 
[EVENT (event-variable) ] ; 

UNLOCK FILE (filename) 
KEY (expression) ; 



RECORD TRANSMISSION OPERATIONS 



1. A SEQUENTIAL file specifies that the 
accessing, creation, or modification 
of the data set records is performed 
in a particular order, that is, from 
the first record of the data set to 
the last record of the data set (or, 
if the BACKWARDS attribute is speci- 
fied, from the last to the first) . 



2. A DIRECT file specifies that the 
accessing, creation, or modification 
of the data set records is performed 
by indicating which particular record 
of the data set is to be operated 
upon. 

3. A data set that is accessed, created, 
or modified in the SEQUENTIAL access 
method may or may not have the attri- 
bute KEYED. If a data set has been 
created with the KEYED attribute, any 
recorded keys actually present in the 
data set may be ignored while access- 
ing sequentially, or they may be 
extracted from the data set by use of 
the KEYTO option. It is possible to 
create a KEYFD data set as a SEQUEN- 
TIAL OUTPUT file and later to access 
that data set as a DIRECT file. 

4. SEQUENTIAL INPUT and SEQUENTIAL UPDATE 
files may be positioned to a particu- 
lar record within the data set by a 
READ operation that specifies the key 
of the desired record. Thereafter, 
successive READ statements without the 
KEY option will access the records 
sequentially. This kind of accessing 
may be used only if the data set 
contains keyed records and if the file 
has the KEYED attribute. 

5. Existing records o^ a data set in a 
SEQUENTIAL UPDATE file can be rewrit- 
ten (REWRITE statement) , ignored (READ 
statement with an IGNORE option) , or 
deleted (DELETE statement) , but the 
number of records cannot be increased. 
Note that when deletinq a record from 
a SEQUENTIAL UPDATE file, the program- 
mer cannot explicitly identify the 
record to be deleted; only the last 
record that was read can be deleted. 
On the other hand, for DIRECT UPDATE 
files, the programmer can and must 
explicitly identify the record to be 
deleted by the DELETE statement. In 
addition, he can add records to a 
DIRECT UPDATE file as well as rewrite 
them by using WRITE and REWRITE state- 
ments, respectively. 

6. If the READ INTO option is used in 
referring to a SEQUENTIAL BUFFERED 
UPDATE file and the next REWRITE 
statement does not make use of a FROM 
option, the record in the data set is 
replaced from the buffer and not from 
the variable that had been specified 
in the INTO option of the READ state- 
ment. The FROM option in a REWRITE 
statement must specifically name the 
variable INTO which the data has been 
read if that data is to be rewritten. 

7. Operations upon a data set accessed 
sequentially may lead to erroneous 



Chapter 7: Input/Output 113 



results if the same data set or file 
is being referred to asynchronously in 
more than one task. The separate 
tasks might use different filenames, 
but if the different file openings 
identify the same data set, the tasks 
would refer to the same set of 
records. 



tion does not apply. To ensure pro- 
tection, the data set to which ref- 
erence is made by more than one task 
through the same file must be opened 
by a parent of all these tasks. Note 
that a reference to a file parameter 
and a reference to its associate argu- 
ment are references to the same file. 



A data set being accessed directly is 
suitable for asynchronous operations 
because the reference to the data set 
does not imply any explicit ordering 
of the records and because the records 
are transmitted INTO and FROM varia- 
bles that can be known only within the 
individual tasks. This is true wheth- 
er the data set is identified by more 
than one file opening or is referred 
to through use of the same filename. 

When a file has the DIRECT UPDATE 
EXCLUSIVE attributes, it is possible 
to protect individual records from 
simultaneous updating by differant 
tasks. For an EXCLUSIVE file, any 
READ statement without a NOLOCK option 
automatically locks the record read. 
No other task operating upon the same 
file can access a locked record until 
it is unlocked by the locking task. 
Any task (other than the locking task) 
referring to a locked record will wait 
at that point until the record is 
unlocked. A record can be explicitly 
unlocked by the locking task through 
execution of a REWRITE, DELETE, or 
UNLOCK statement for the same record. 
Records are unlocked automatically 
when the file is closed or upon com- 
pletion of the locking task. The 
EXCLUSIVE attribute applies only to 
the file and not to the data set. 
Conseguently, record protection is 
provided only if all tasks refer to 
the data set through use of the same 
file; if they refer to the same data 
set. using different files, the protec- 



10. A WRITE statement adds records to a 
data set, while a REWRITE statement 
replaces records. Thus, a WRITE 
statement may be used with OUTPUT or 
UPDATE files, while a REWRITE state- 
ment may only be used with UPDATE 
files. Moreover, a WRITE statement 
may use the KEYFROM option to indicate 
the actual transference of a key from 
internal storage to the data set; the 
REWRITE statement uses the KEY option 
to identify the existent record to be 
replaced. 



SYSIN AND SYSPRINT 



A GET statement that does not specify a 
file or string option is equivalent to the 
GET statement: 

GET FILE (SYSIN) 

A PUT statement that does not specify a 
file or string option is equivalent to the 
PUT statement: 

PUT F I LF (SYSPRINT) 

The contextual recognition of the FILE 
attribute applies to the identifiers SYSIN 
and SYSPRINT in these statements. 

If the merged attributes of a file named 
SYSPRINT contain the attributes STREAM and 
OUTPUT and if SYSPRINT is not internal, the 
default attribute of PRINT is supplied. 
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CHAPTER 8 



STATEMENTS 



This section includes a description of 
each stcitement in the language. These 
descriptions are presented in alphabetic 
order. 

To show the relationships among these 
statements, they are also classified into 
logical groups. 



ment r a programmer may specify the action 
to be taken when an interrupt occurs and 
can record the status of the program at the 
point of the interrupt. By using the 
SIGNAL statement, the programmer may ini- 
tiate programmed interrupts and may simu- 
late machine interrupts to facilitate 
debugging. 



RELATIONSHIP OF STATEMENTS 



CLASSIFICATION 



Statements may be classified into the 
following logical groups: assignment, con- 
trol, declaration, error control and debug, 
input/output, program structure, and stor- 
age allocation. 



Assi gnment Statement 



The assignment statement is used to 
evaluate expressions and to assign values 
to scalars, arrays, and structures. 



Input/Output Statements 



The input/output statements may be 
classified as follows: file preparation, 
record status, data specification, and data 
transmission. 

File Preparation Statements 

The OPEN statement associates a filename 
with a data set and completes the specifi- 
cation of the attributes of the file, in 
preparation for input/output on a file. 
The CLOSE statement dissociates the file- 
name from the data set and thereby releases 
the filename for use in connection with any 
other data set. 

Record Status Statements 



Control Statements 



The control statements affect the normal 
sequential flow of control through a pro- 
gram. The control statements are GO TO, 
IF, DO, CALL, RETURN, WAIT, STOP, EXIT, and 
DELAY. 



Data Declaration Statement 



The DELETE statement deletes a record 
from an UPDATE file. The UNLOCK statement 
makes accessible a record which would 
otherwise be inaccessible as a result of 
the READ statement accessing from an EXCLU- 
SIVE file. 

Data Specification Statements 

The format of data fields to be trans- 
mitted may be specified by the FORMAT 
statement or in the GET or PUT data trans- 
mission statements. 



The data declaration statement, DECLARE, 
specifies attributes for identifiers. This 
statement is described in Chapter 4,. 



Error Con t rol and Debug Statements 



When an interrupt occurs during program 
execution, standard operating system action 
is taken; however, the language provides 
the facility to override system action on 
these interrupts.. By using the ON state- 



Data Transmission Statements 

The GET and PUT statements cause values 
to be transmitted between a data set and 
specified variables in the program. The 
READ and WRITE statements cause a single 
record to be transmitted between a data set 
and variables in the program. The REWRITE 
statement specifies the updating of an 
existing record of the data set. The 
LOCATE statement permits a record to be 
created in the buffer storage and subse- 
quently written. The DISPLAY statement 
causes messages to be transmitted between 
the program and the machine operator. 
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Program Stru cture Statements 



The program structure statements are: 
PROCEDURE, ' BEGIN, END, DO, and ENTRY. The 
first three statements delimit the scope of 
declarations within a program. The ENTRY 
statement provides a secondary entry point 
for a procedure. 



Storage All ocation Statements 



The storage allocation statements are 
ALLOCATE and FREE. These statements allo- 
cate and free storage for variables. 



SEQUENCE OF CONTROL 



Within a block, control normally passes 
sequentially from one statement to the 
next. If a DECLARE, FORMAT, or ENTRY is 
encountered, control passes to the next 
statement. If an internal PROCEDURE state- 
ment is encountered, control passes to the 
statement following the end of the proce- 
dure. Control passes to the statement 
following an IF statement when control 
reaches the end of the THEN-unit. Sequen- 
tial operation is also modified by the 
following statements: CALL, DO, END, EXIT, 
GO TO, PROCEDURE, RETURN, SIGNAL, and STOP. 

A CALL statement passes control to the 
specified entry point. 

A DO statement defines a group that is 
treated as a single statement and can cause 
repeated execution of a group. 

An END statement, logically terminating 
a procedure, acts as a RETURN statement, 
causing control to return to the invoking 
Drocedure. 



A RETURN statement returns control from 
a procedure to the invoking procedure. 

A SIGNAL statement specifying an enabled 
condition causes control to pass to the 
on-unit of the associated ON statement. If 
there is no associated ON statement, con- 
trol is passed to the appropriate system 
routine. 



The following conditions may 
sequential operation to be modified: 



cause 



A function reference in any expression 
causes control to oass to the speci- 
fied function procedure. 

The occurrence of an enabled condition 
specified in an ON statement causes 
control to pass to the associated 
ON-unit. If there is no ON statement, 
control is passed to the appropriate 
system routine. 

The flow of control through the IF and 
ON statements and through a DO group 
may or may not be sequential. 

In an appropriate environment, the 
asynchronous execution of several 
operations may involve transfer of 
control under the influence of exter- 
nal occurrences. 



The following 
sequence of control: 



example illustrates 



A: 


PRO 


CEDURE; 


E: 


X = 


Y + Z; 


C: 


CALL D; 


E: 


W = 


P*Q? 




D: 


PROCEDURE ; 




G: 


S = T/P; 




H: 


RETURN ; 




I: 


END D; 


J: 


U = 


V**W; 


K: 


GO 


TO N; 



The EXIT statement causes control to 
leave a task; the STOP statement causes 
control to leave a program. 

A GO TO statement causes control to 
transfer to the specified statement label. 

A PROCEDURE statement heads a procedure. 
Procedures may be considered as independent 
blocks and are placed anywhere within an 
external procedure, consistent with desired 
identifier scopes. However, a procedure 
may be invoked only by a CALL statement, a 
statement with a CALL option, or a function 
reference. Thus, control passes around a 
nested procedure, from the statement before 
a PROCEDURE statement to the statement 
after the appropriate END statement for the 
procedure. 



N : END ; 

Control flows in the following order: A, 
B, C, D, G, H, E, J, K, N. 



ALPHABETIC LIST OF STATEMENTS 



The ALLOCATE Statement 



Function: 

The ALLOCATE statement causes storage to 
be allocated for specified controlled 
and/or based variables. 
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General format: 

Option 1: 

ALLOCATE [level] identifier 
[dimension] [attribute]... 
[,[level] identifier [dimension] 
[attribute] ...]...; 

Option 2: 

ALLOCATE based-variable-ident if ier 
[SET (scalar locator-variable)] 
[IN (scalar area-variable)] 
[, based-variable-identifier 
[SET (scalar locator-variable)] 
[IN (scalar area-variable)]]...; 

Syntax rules: 

Based variables and controlled varia- 
bles may both be allocated in the same 
ALLOCATE statement. 



Syntax 
Option 1 : 



rules 2 through 6 apply only to 



8. The SET clause, if present, may appear 
preceding or following the IN clause. 
The SET clause must appear unless a 
locator variable has been soecified in 
the BASED attribute declaration for 
the variable, in which case it is 
optional. 

General Rules: 

Rules 1 through 5 apply only to Option 1: 

1. When Option 1 is used, an ALLOCATE 
statement for an identifier for which 
storage was allocated and not freed 
causes storage for the identifier to 
be "pushed down" or stacked. This 
pushing down creates a new generation 
of data for the identifier. When 
storage for this identifier is freed, 
using the FREF statement, storage is 
"popped up" or removed from the stack. 

2. Bounds of arrays, lengths of strings 
and sizes of areas are fixed at the 
execution of an ALLOCATE statement. 



2. Each identifier must represent data of 
the controlled storage class or be an 
element of a controlled major struc- 
ture. 



3. 



4. 



5. 



6. 



"Dimension" indicates a dimension 

attribute. "Attribute" indicates an 

AREA, BIT, CHARACTER, or INITIAL 

attribute. "Level" indicates a level 
number. 

A dimension attribute, if present, 
must specify the same number of dimen- 
sions as that declared for the asso- 
ciated identifier. 

The attribute BIT may appear only with 
a BIT identifier; CHARACTER may appear 
only with a CHARACTER identifier; AREA 
may appear only with an AREA identifi- 
er. 



A structure 
the major 
only if the 
the entire 
DECLARE St 
In this c 
must be sp 
that are de 
attribute. 



element nam 
structure n 
relative 
structure ap 
atement for 
ase, dimens 
ecified for 
clared with 



e, other than 
ame, may appear 
structuring of 
pears as in the 
that structure, 
ion attributes 
all identifiers 
the dimension 



Syntax 
Option 2: 



rules 7 and 8 apply only to 



7. The based variable appearing in the 
ALLOCATE statement may be a scalar 
variable, an array, or a major struc- 
ture. When it is a major structure, 
only the major structure name is spec- 
ified. 



a. If a bound, length, or size is 
explicitly specified in an ALLO- 
CATE statement, it overrides the 
specification given in the DECLARE 
statement. 

b. If a bound, length, or size is 
specified by an asterisk in an 
ALLOCATE statement, that value is 
taken from the most recent alloca- 
tion. If the variable has not 
been previously allocated, the 
bound, length, or size is unde- 
fined. 

c. Either the ALLOCATE statement or 
the DECLARE statement must specify 
any necessary dimension, size, or 
length attributes for an identifi- 
er. Any expression taken from the 
DECLARE statement is evaluated at 
the point of allocation using the 
condition enabling of the ALLOCATE 
statement, although the names are 
interpreted in the environment of 
the DECLARE statement. 

d. If, in either an ALLOCATE or a 
DECLARE statement, bounds, 
lengths, or area sizes are speci- 
fied by expressions that contain 
references to the variable being 
allocated, the expressions are 
evaluated using the value of the 
most recent generation of the 
variable. 

3. Upon allocation of an identifier, ini- 
tial values are assigned to it if the 
identifier has an INITIAL attribute in 
either the ALLOCATE statement or 
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DECLARE statement. Expressions or a 
CALL option in the INITIAL attribute 
are executed at the point of alloca- 
tion, using the condition enabling the 
ALLOCATE statement, although the names 
are interpreted in the environment of 
the declaration. If an INITIAL attri- 
bute appears in both DECLARE and ALLO- 
CATE statements, the INITIAL attribute 
in the ALLOCATE statement is used. If 
initialization involves reference to 
the variable being allocated, the ref- 
erence will be to the new generation 
of the variable. 

4. A parameter that is declared CON- 
TROLLED may be specified in an ALLO- 
CATE statement. 

5. The evaluations implied by the ALLO- 
CATE statement are subject to the same 
interdependency and irreducibility 
rules as those for the evaluations 
involved in prologue activity (see 
"Prologues," in Chapter 6). 

Rules 6 through 11 apply only to Option 2: 

6. When Option 2 is used, storage is not 
"pushed down" or stacked. A given 
generation of a based variable may be 
accessed by a suitable based reference 
regardless of allocations of the based 
variable performed after this genera- 
tion is allocated. The allocation of 
a based variable proceeds as follows: 

a. Bounds, string lengths, and area 
sizes of all the fields are evalu- 
ated in an implementation-defined 
order. Expression preceding the 
keyword REFER are used as the 
values of the bounds, string 
lengths, or area sizes specified 
by the REFER options. 

b. Sufficient storage for a genera- 
tion of the based variable with 
these bounds, string lengths, and 
area sizes is allocated. This may 
raise the AREA condition if the 
allocation is attempted in an 
area. 

c. Within the newly allocated genera- 
tion, those variables that are 
objects of REFER options are ini- 
tialized to the values specified 
in the REFER options. This ini- 
tialization is performed in an 
implementation-defined order. 

d. The locator variable specified in 
the SET option or, in its absence, 
the locator variable specified in 
the BASED attribute of the based 
variable declaration, is assigned 
a pointer value which identifies 



the generation that has been allo- 
cated. 

Initial values specified in the 
declaration of the based variable 
are assigned to the generation 
that has been allocated. 



Note: Stages c 
either order. 



and d may be performed in 



10, 



11, 



The allocation of a based variable 
involves the based variable to be 
allocated, a locator variable to iden- 
tify the new generation, and an area 
if the generation is to be allocated 
in an area. If no SET option is 
specified, a SET option is assumed to 
specify the locator variable given in 
the BASED attribute of the based vari- 
able declaration; it is an error, in 
such a case, if this BASED attribute 
does not specify a locator variable. 
If the SET option specifies an offset 
variable and no IN option is present 
then an IN option is assumed to speci- 
fy the area given in the OFFSET attri- 
bute of the offset variable declara- 
tion; in such a case, it is an error 
if this OFFSET attribute does not 
specify an area variable. 

If the SET option specifies an offset 
variable, the pointer value identify- 
ing the new generation is assigned to 
the Offset variable; the IN option 
must be present, or be assumed, and it 
must specify either the same area as 
that specified in the OFFSET attribute 
of the offset variable declaration, or 
an area contained in or containing 
that area. 

If no IN option is present and none is 
assumed, the new generation is allo- 
cated in storage associated with the 
task which executes the ALLOCATE 
statement. The SET option in this 
case must specify a pointer variable. 

If an IN option is present, or is 
assumed, an attempt is made to allo- 
cate the new generation in the area 
specified in the IN option. If there 
is sufficient storage the generation 
is allocated in the area and a pointer 
value identifying the generation is 
assigned to the locator variable spec- 
ified in the SET option. If insuffi- 
cient storage exists, the AREA condi- 
tion is raised. On normal return from 
an AREA on-unit, the IN option is 
re-evaluated, and the allocation is 
attempted again. 

A pointer value identifying an area 
does not necessarily compare equal 
with a pointer value identifying the 
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first generation allocated within the 
area. 



Examples : 

1. The following examples illustrate the 
use of the ALLOCATE statement for a 
controlled identifier: 



DECLARE A(N1,N2) CONTROLLED ; 



Nl, N2 = 10; 
ALLOCATE A; 

ALLOCATE A 

(K1,K2) ; 

Nl = Nl + 1; 
ALLOCATE A; 

ALLOCATE A 

ALLOCATE A 

(Jl r J2); 



The bounds are 10 and 

10 
The bounds are Kl and 

K2 which override Nl 

and N2. 

The bounds are 11 and 

10. 
The bounds are 11 and 

10. 
The bounds are Jl and 

J2. 



DECLARE VALUE BASED (P) , 
RATES C10) BASED (Q) , 
1 GROUP BASED (R) , 
2 J FIXED BINARY, 
2 PTS (EXT REFER (J)) POINTER, 
2 VALUES (10) FIXED, 
TABLE AREA STATIC EXTERNAL, 
S POINTER; 

a. ALLOCATE VALUE SET (P) ; 
Allocates space in systems storage 
for a generation of the based 
variable VALUE, and sets the poin- 
ter variable P to identify the 
particular generation. 

b. ALLOCATE GROUP SET (R); 
Allocates space in systems storage 
for a generation of the structure 
GROUP, and sets the pointer varia- 
ble R to identify the generation. 
The dimension of each of the com- 
ponent PTS is determined by the 
value of EXT; subseguent referen- 
ces refer to the value of J, which 
is assigned the value of EXT at 
the time of allocation. 



The following example illustrates the 
use of the ALLOCATE statement when the 
DECLARE statement contains asterisks 
for the length of a controlled bit 
string B: 



DECLARE B BIT (*) VARYING CONTROLLED ; 



ALLOCATE RATES SET(S) IN (TABLE); 
Allocates space in the storage 
area corresponding to the area 
variable TABLE for a generation of 
the array RATES. The pointer S is 
set to identify the point within 
TABLE at which RATES is allocated. 



ALLOCATE E 

BIT (*); 
ALLOCATE B; 

ALLOCATE B 

BIT (N) ; 



Illegal; violates rule 

2b. 
Illegal; violates rule 

2c. 

The maximum length is 
N. 



3. The following example illustrates the 
use of the built-in function ALLOCA- 
TION and of the INITIAL attribute for 
a controlled variable in an ALLOCATE 
statement: 



DECLARE A(N,N) 
((N*N)0) ; 



CONTROLLED 



INITIAL 



IF -, ALLOCATION (A) THEN ALLOCATE A 
INITIAL (1, (N-l) ((N)0, DE- 



ALLOCATE A; 

The following example illustrates 
three uses of Option 2 of the ALLOCATE 
statement for based identifiers. 



The Assignment Statement 



Function: 

The assignment statement is used to 
evaluate an expression and to assign its 
value to one or more target variables; the 
target variables may be scalar, array, or 
structure variables. The target variables 
may be indicated by oseudo- variables. 

General format is shown in Figure 4. 

Syntax rule: 

In Options 1, 2, and 3 the target 
variables must be respectively scalars, 
arrays, and structures. Note that an array 
of structures is treated as an array. 

General rules: 

1- Aggregate assignments (Options 2 and 
3) are expanded into a series of 
scalar assignments according to rules 
5 through 8 . 



A scalar assignment 
follows: 



is performed as 
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Option 1 (Scalar Assignment) 

Lar-variable) [~, scalar-variable 
ado- variable) I , pseudo-variable 
[Option 2 (Array Assignment) 

array-variable \ [~, array- variable 

pseudo-variable) |_, pseudo-variable 
Option 3 (Structure Assignment) 
[structure-variable ) |~, structure-variable 

[pseudo-variable ) I, pseudo-variable 

l 1 h 

Figure 4. General Format for the Assignment Statement 



{: 



scalar-expression; 



structure-expression t,BY NAME]) 
array-expression I , BY NAME] /; 
scalar-expression ) 



{ struct u 
scalar- 



re-expression [,BY NAME] 
expression 



j 



Subscripts of the target varia- 
bles, and the second and third 
arguments of SUBSTR pseudo- 
variable references, are evaluated 
from left to right. 



b. The expression on the right-hand 
side is then evaluated. 

c. For each target variable (in left 
to right order) , the expression is 
converted to the characteristics 
of the target variable according 
to the rules in "Expressions" in 
Chapter 3 (except that whenever a 
conversion of arithmetic base is 
involved, the value is converted 
directly to the precision of the 
target variable) . The converted 
value is then assigned to the 
tarcret variable. 



The following rules 
scalar assignment: 



apply to string 



b. 



If the target variable is a fixed- 
length string, the expression 
value is truncated on the right if 
it is too long or padded on the 
right (with blanks for character 
string, zeros for bit strings) if 
the value is too short. (Note 
that a string pseudo-variable is 
considered to be a fixed-length 
string) . The resulting value is 
assigned to the target. 

If the target is a VARYING string 
and the value of the expression is 
longer than the maximum length 
declared for the variable, the 
value is truncated on the right. 
The target string obtains a 



current length equal to its maxi- 
mum length. 

c. If the target is a VARYING string 
and the value of the expression is 
not greater than the maximum 
length, the value is assigned; the 
target string obtains a current 
length equal to the length of the 
value. 

The following rules apply to assign- 
ments other than string: 

a. If the target is an area variable, 
the expression must be an area 
variable or function. All unfreed 
allocations in the target area are 
freed. A sequence of allocations 
and freeings is then, effectively, 
performed in the target area for 
generations corresponding to the 
significant allocations in the 
source area; these operations are 
performed in precisely the same 
order as the significant alloca- 
tions were allocated and, where 
appropriate, freed. The AREA con- 
dition is raised by the assignment 
if any such allocation in the 
target area raises the AREA condi- 
tion. Finally, the value of each 
allocation (which has not been 
freed) in the source area is 
assigned to the corresponding 
allocation in the target area. 

b. If the target is a pointer varia- 
ble, the expression can only be a 
pointer (or offset) variable or a 
pointer (or offset) function ref- 
erence. If the expression is of 
offset type, its value is convert- 
ed to pointer by an implicit ref- 
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erence to the POINTER built-in 
function. 

c. If the target is an offset varia- 
ble, the expression can only be an 
offset (or pointer) variable or an 
offset (or pointer) function ref- 
erence. If the expression is of 
pointer type, its value is con- 
verted to offset by an implicit 
reference to the OFFSET built-in 
function. 

d. If the target is a label variable, 
the expression can only be a label 
variable or label constant. Envi- 
ronmental information is always 
assigned to the label variable. 

e. If the target is an event varia- 
ble, the expression can only be an 
event variable. The assignment is 
uninterruptable, and it involves 
both the completion and status 
values; i.e., no other operations 
will take place (for example, in 
other tasks) while the assignment 
is being performed. An event 
variable does not become active 
when it has an active event varia- 
ble? assigned to it. It is an 
error to assign to an active event 
variable. 

f. If the target is a STATUS pseudo- 
variable, a value can be assigned 
whether or not the event variable 
is active. It is an error to 
assign to a COMPLETION pseudo- 
variable if the named event 
variable is active. 

The first target variable in an aggre- 
gate assignment is known as the master 
variable. If the master variable is 
an array, then an array expansion 
(Rule 6) is performed; otherwise, a 
structure expansion (Rules 7 and 8) is 
performed. The generated assignment 
statements must satisfy the syntax 
rules. The CHECK condition for 
assignment to a target variable is not 
raised during the assignment; it is 
raised (when suitably enabled) after 
the assignment is complete. Such 
CHECK conditions are raised in the 
written order of the enabled identifi- 
ers. In the case of BY NAME assign- 
ment, the CHECK condition for the 
target variable is raised regardless 
of whether any value is assigned to an 
item. The label prefix of the origi- 
nal statement is applied to a null 
statement preceding the other generat- 
ed statements. 

In Option 2, all array operands must 
have the same number of dimensions and 



identical bounds. The array assign- 
ment is expanded into a loop of the 
form: 



LABEL: DO jl 
DO j2 



LBOUND (master-variable, 1) TO 
HBOUND (master-variable, 1) ; 

LBOUND (master- variable, 2) TO 
HBOUND (master- variable, 2) ; 



DO jn = LBOUND (master- variable, n) TO 
HBOUND ( mas ter-vari a ble,n) ; 

generated assignment statement 

END LABEL; 

In this expansion, n is the number 
of dimensions of the master variable 
that are to participate in the assign- 
ment. In the generated assignment 
statement, all array operands are 
fully subscripted, using (from left to 
right) the dummy integer variables jl 
to jn. If an array operand appears 
with no subscripts, it will only have 
the subscripts jl to jn; if cross- 
section notation is used, the 
asterisks are replaced by jl to jn. 
If the original assignment statement 
(which may have been generated by Rule 
7 or Rule 8) has a condition prefix, 
the generated assiqnment statement is 
given this condition prefix. If the 
original assignment statement (which 
may have been generated by Rule 8) has 
a BY NAME option, the generated 
assignment statement is given a BY 
NAME option. If the generated assign- 
ment statement is a structure assign- 
ment, it is expanded as given below. 

In Option 3, where the BY NAME option 
is not specified, the following rules 
apply: 

a. None of the operands can be 
arrays, although they may be 
structures that contain arrays. 

b. All of the structure operands must 
have the same number, k, of 
immediately contained items. 

c. The assignment statement (which 
may have been generated by Rule 6) 
is replaced by k generated assign- 
ment statements. The j.th generat- 
ed assignment statement is derived 
from the original assignment 
statement by replacing each struc- 
ture operand by its ith contained 
item; such generated assignment 
statements may require further 
expansion according to Rule 6 or 
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Rule 7. All generated assignment 
statements are given the condition 
prefix of the original statement. 



In Option 3, where the BY NAME option 
is given, the structure assignment, 
which may have been generated by Rule 
6, is expanded according to steps a 
through d below. None of the operands 
can be arrays. 



The first item immediately con- 
tained in the master variable is 
considered. 



If each structure operand and tar- 
get variable has an immediately 
contained item with the same iden- 
tifier, an assignment statement is 
generated as follows: the state- 
ment is derived by replacing each 
structure operand and target vari- 
able with its immediately con- 
tained item that has this iden- 
tifier. If any structure contains 
no such identifier, no statement 
is generated. If the generated 
assignments is a structure or 
array-of-structures assignment, BY 
NAME is appended. All generated 
assignment statements are given 
the condition prefix of the origi- 
nal assignment statement. 



Step b is repeated for each of the 
items immediately contained in the 
master variable. The assignments 
are generated in the order of the 
items contained in the master 
variable. 



Steps a through c may generate 
further array and structure 
assignments. These are expanded 
according to Rules 6 through 8. 



Examples: 

1. Suppose that the following 
structures have been declared: 



three 



1 ONE 



1 TWO 



PARTI 
3 RED 
3 WHITE 
3 BLUE 
PART 2 
3 GREEN 
3 YELLOW 
3 ORANGE (3) 
PART 3 
3 BLACK 
3 WHITE 



PARTI 
3 RED 
3 GREEN 
3 WHITE 
PART2 
3 BLUE 
3 YELLOW 
3 ORANGE (3) 



2. 



1 THREE 
3 PARTI 

5 BLACK 

5 WHITE 

5 RED 
3 PART2 

5 YELLOW 

5 WHITE 

5 ORANGE (3) 

5 PURPLE 



Consider the following assignment: 

ONE = TWO - 2 * THREE, BY NAME; 

By Rule 8 this generates: 

ONE. PARTI = TWO. PARTI - 2 * 
THREE. PARTI, BY NAME; 

0NE.PART2 = TW0.PART2 - 2 * 
THREE. PART 2, BY NAME; 

Applying Rule 8 again, these state- 
ments are replaced by: 

ONE. PARTI. RED = TWO. PARTI. RED 

- 2 * THREE. PARTI. RED; 

ONE . PARTI . WHITE = TWO. PARTI .WHITE 

- 2 * THREE. PARTI. WHITE ; 

ONE. PART 2. YELLOW = TWO . PART 2 .YELLOW 

- 2 * THREE. PART 2. YELLOW; 

ONE. PART 2. ORANGE = TWO . P ART 2 . OR ANGE 

- 2 * THREE. PART 2. ORANGE; 

The final assignment is expanded 
according to Rule 6. 

The following example illustrates 
array assignment (Option 2) : 



Given the array A 



and the array B 



Consider the assignment statement: 
A = (A+B)**2-A(l,l) ; 

After execution, A has the value 

7 74 

93 189 

9 114 

93 114 

Note that the new value for A (1,1), 
which is 7, is used in evaluating the 
expression for all other elements. 
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3. The following example illustrates 
string assignment: 

Given: 

A is a fixed- length string whose 

value is * XZ/BQ' . 
B is a varying-length string of 

maximum length 8 whose value is 

'MAFY' . 
C is a fixed-length string of 

length 3. 
D is a varying-length string of 

maximum length 5. 

Then in the statement: 

C=A, the value of C is *XZ/'. 
C='X', the value of C is 'Xbb'. 
D=B r the value of D is 'MAFY'. 
D=SUBSTR(A f 2,3) | | SUBSTR (A, 2, 3) , 

the value of D is ' Z/BZ/'. 
SUBSTR(A,2,4)=B, the value of A is 

•XMAFY' . 
SUBSTR(B,2, 2)=*R' , the value of B 

is 'MRbY*. 
SUBSTR(B,2)='R' , the value of B is 

■ MRbb ' . 



The BEGIN Statement 



(NOSIZE) : A: BEGIN; 



END; 



END; 



The SIZE condition is enabled with the 
prefix to the PROCEDURE statement. This 
enabling is negated throughout the begin 
block with the prefix NOSIZE. On exit from 
the begin block, SIZE errors are again 
enabled because statements again are in the 
scope of the SIZE prefix. 



The CALL Statement 



Function: 

The CALL statement invokes a procedure 
and causes control to be transferred to a 
specified entry point of the procedure. 

General format: 



Function: 

The BEGIN statement is the heading 
statement of a begin block. 

General format: 

BEGIN [OPTIONS (option- list) 3 ; 

Syntax rule: 

The syntax of the "option list" is 
implementation-defined. 

General rules: 

1. A BEGIN statement is used in conjunc- 
tion with an END statement. 

2. See Chapter 1 for a discussion of 
blocks . 

Examples : 

1. ON OVERFLOW BEGIN; 



END ; 
2. (SIZE): Q: PROCEDURE; 



CALL entry- name 

[ (argument [, argument] 



.)] 



[TASK [(scalar-task-name)]] 
[EVENT (scalar-event-name)] 
[PRIORITY (scalar-expression)]; 

Syntax rules: 

The entry name, which can be a generic 
name, represents the entry point of 
the procedure invoked. 

An argument is an expresion, entry 
name, file name, or file parameter 

, The TASK, EVENT, and PRIORITY options 
can appear in any order. 

General rules: 

, The TASK, EVENT, and PRIORITY options, 
when used alone or in any combination, 
specify that the invoked and invoking 
procedures are to be executed asyn- 
chronously. 

When the TASK option is used, the task 
name, if given, is associated with the 
task created by the CALL. Reference 
to this name enables the priority of 
the task to be controlled at some 
other point by the use of the PRIORITY 
pseudo-variable and built-in function. 
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3. When the EVENT option is used, the 
event name is associated with the 
completion of the task created by the 
CALL statement. Another task can then 
wait for completion of this created 
task by specifying the event name in a 
WAIT statement. 



Upon execution of the CALL state- 
ment, the event variable is made 
active, and the completion value is 
set to 'O'B and the status value to 0. 
Upon termination of the created task, 
the completion value is set to ' 1*B 
and, unless the task has been termi- 
nated by a RETURN or END statement, 
the status is set to 1 if still zero. 



4. If the PRIORITY option is used, the 
expression in the PRIORITY option is 
evaluated to an integer m, of an 
implementation- defined precision 
(n,0). The priority of the named task 
is then made m relative to the task in 
which the CALL is executed. 



If a CALL statement with the EVENT 
or TASK option does not have the 
PRIORITY option, the priority of the 
invoked task is made equal to that of 
the task variable in the TASK option, 
if there is one, or else made equal to 
the priority of the invoking task. 



Expressions in these options, as well 
as any argument expressions, are 
evaluated in the task in which the 
call is executed. This includes exe- 
cution of any on- units entered as the 
result of the evaluations. 



6. The environment of the invoked proce- 
dure is established after evaluation 
of the expressions named in Rule 5, 
and before the procedure is invoked. 

Examples : 

1. CALL CRITICAL_PATH (A,B*C,D); 



The CLOSE Statement 



Function: 



CRITICAL_PATH: 

GAMFA) ; 



PROCEDURE (ALPHA, BETA, 



2. 
3. 



END; 

CALL PAYROLL (NAME, DATE, HRRATF) ; 

CALL PRINT (A,B) TASK (T2) EVENT (ET2) 
PRIORITY (-2) ; 



The CLOSE statement dissociates the 

named file from the data set with which it 

was associated by opening in the current 
task. 



General format: 
CLOSE options-group I , options-group] . . . ; 

Following is the format of "options 
group" : 

FILE (filename) [IDENT (scalar-argument) ] 

General rules: 

1. The options may appear in either order 
within an options group. 

2. The FILE (filename) option specifies 
which file is to be closed. It must 
appear once in each options group. 
Several files can be closed by one 
CLOSE statement. 

3. A closed file can be reopened. 

4. Closing an unopened file, or an 
already closed file, has no effect. 

5. The CLOSE statement cannot be used to 
close a file in a task different from 
the one that opened the file. 

6. If a file is not closed by a CLOSE 
statement, it is automatically closed 
at the completion of the task in which 
it was opened. 

7. All I/O event variables associated 
with operations on the file that have 
not been completed before the file is 
closed are set complete, with a status 
value of 1 if not already non-zero. 

8. A CLOSE statement unlocks all records 
in the file. 

9. The argument in the IDENT option is 
used as follows: 



Input Files: The argument must be a 
character-string variable that may be sub- 
scripted. The data set is examined for an 
identifying user label, which is then 
assigned to the variable. The label will 
be a trailer label, unless the file is a 
BACKWARDS file, in which case it will be a 
header label. If there is no label, a null 
string will be assigned. 
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Output Fil es; The. argument is an expres- 
sion. Its character-string value is placed 
with the data set as a trailer label. 

Update Files: The argument must be a 
character-string variable that may be sub- 
scripted. The data set is examined for an 
identifying label, which is then assigned 
to the variable. The label will be a 
trailer label. 

Examples : 

1. CLOSE FILE (MASTER); 

The file, MASTER, is closed, and the 
facilities allocated to it are 
released. 

2. CLOSE FILE (TABLEA) , FILE (TABLEB); 

The two files, TABLEA and TABLEB are 
closed in the same way as MASTER, in 
the preceding examnle. 



The DECLARE Statement 



H. 



See "The DECLARE Statement" in Chapter 



The DELETE Statement 



Function: 

The DELETE statement deletes 
from an UPDATE file. 



General format: 

DELETE option- list ; 



record 



Following 
list" : 



is the format of "option 



FILE (f ilenarre) [KEY( scalar-expression) ] 
[EVENT (scalar-event-variable) ] 

General rules: 

1. The options may appear in any order. 

2. The FILE (filename) option specifies 
the UPDATE file; it must be specified. 

3. The KEY option must be specified if 
the file' is a DIRECT UPDATE ^ile; it 
cannot be specified otherwise. The 
expression is converted to a character 
string and determines which record is 
to be deleted. 



The DELAY Statement 



U. If the file is a SEQUENTIAL UPDATE 
file, the record to be deleted is the 
last record that was read. 



Function: 

The DELAY statement causes execution of 
the controlling task to be suspended for a 
specified period of time. 

General format: 

DELAY (scalar-expression) ; 

General rules: 

Execution of the DELAY statement 
causes the scalar expression to be 
evaluated and converted to an integer 
n and the task to be suspended for n 
milliseconds. 

Execution resumes after n millisec- 
onds only if the controlling task is 
of sufficiently high priority to be 
selected in preference to all other 
ready tasks. 

Example: 

DELAY (10) ; 

The: controlling task is suspended 
for ten milliseconds. 



5. The EVENT option allows processing to 
continue while the record is being 
deleted. It cannot be specified for 
SEQUENTIAL BUFFERED ^iles. The com- 
pletion part of the event-variable is 
given the value 'O'B until the execu- 
tion of the DELETE is complete, at 
which time it is given the value ' l'B. 
The execution of a DELETE statement 
with an EVENT option is considered 
complete only after a WAIT statement 
naming the event has been executed. 

6. The DELETE statement unlocks a record 
only if that record had been locked in 
the same task in which the DELETE 
appears. 

7. The DELETE statement can cause impli- 
cit opening of a file. 

Example: 

DELETE FILE (ALPHA) KEY (DKEY); 

This statement causes the record iden- 
tified by DKEY to be deleted from the data 
set associated with the file ALPHA. If the 
record was previously locked in the same 
task, it is unlocked. 
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The DISPLAY Statement 



Funct ion : 

The DISPLAY statement causes a message 
to be displayed to the machine operator, A 
response may be requested. 

General format: 

Option 1- 

DISPLAY (scalar-expression) ; 

Option 2. 

DISPLAY (scalar-expression) 
REPLY (scalar-character-variable) 
[EVENT (scalar-event-variable) ] ; 

Syntax rule: 

REPLY and EVENT may appear in either 
order. 

General rules: 

1. Execution of the DISPLAY statement 
causes the scalar expression to be 
evaluated and,, where necessary, con- 
verted to a varying character string 
of implementation-defined maximum 
length. This character string is the 
message to be displayed- 

2. In Option 2, the character variable 
receives a string that is a message to 
be supplied by the operator. 

3. In Option 2, if the EVENT option is 
not specified, execution of the task 
is suspended until the operator's mes- 



sage is received- In option 1, execu- 
tion continues uninterrupted. 

4. if the EVENT (event-variable) option 
is given, execution will not wait for 
the reply to be completed before con- 
tinuing with subsequent statements, 
the completion part of the event vari- 
able will be given the value *0'B 
until the reply is completed, when it 
will be given the value 'l'B. The 
reply is considered complete only 
after the execution of a WAIT state- 
ment naming the event™ 

Example: 

DISPLAY ('END OP JOB'); 

This statement causes the message, "END 
OF JOB" to be displayed- 



The DO Statement 

Function: 

The DO statement delimits the start of a 
DO group and may specify repetitive execu- 
tion of the statements within the group. 

General format is shown in Figure 5. 

Syntax rules: 

1. The "variable" in Option 3 is a sub- 
scripted or unsubscripted scalar vari- 
able. It cannot be a task or cell 
variable nor an active event variable, 
nor can it be an area variable that 
contains any of those . 



Option 1- 
Option 2- 
Option 3. 



DO; 
DO WHILE (scalar-expression); 
( pseudo- variable 



DO 



/ = specif icati 



(variable 

A specification has the following format: 
TO expression2 



on t , specif ication] ... ; 



[ BY express ion3 3 "1 

JCWHILE ( express i onU ) ] 
BY expression3 [TO expression23 J 



express ionl 
Figure 5. General Format for the DO Statement 
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2. Each "expression" in the specification 
list is a scalar expression. 

3. If the BY clause is omitted from the 
specification and the TO clause 
appears, expression3 is assumed to be 
one (I*. 

S. If the TO clause is omitted from the 
specification and the BY clause 
appeeirs, the iteration is performed 
until terminated by the WHILE clause, 
if present, or by some other statement 
within the group. 



LABEL: DO variable (a lf ...,a n )= 
expressionl 
TO expression2 

BY expression3 
WHILE (expressions) ; 
statement-1 



statement-m 
LABEL1: END; 
NEXT: statement 

This is exactly equivalent to the 
following expansion: 



5. If both TO express ion2 and BY 
expression3 are omitted, this form of 
the specification implies a single 
execution of the DO group with the 
control variable having the value of 
expression 1 or it implies no execu- 
tion if the WHILE statement is false. 

6. If the variable in Option 3 is not a 
string variable or a real arithmetic 
variable, the TO and BY clauses cannot 
be used. 



General rules: 

1- In Option l, f the DO statement delimits 
the start of a DO group. 

2. In Option 2 f the DO statement delimits 
the start of a DO group and specifies 
repetitive execution defined by the 
following: 



LABEL: DO WHILE (expression) ; 
statement 1 



NEXT: 



statement n 

END; 

statement 



The above is exactly equivalent to the 
following expansion: 

LABEL: IF (expression) THEN; ELSE GO TO 
NEXT; 
statement 1 



LABEL: temp 1 =a 1 ; 



temp n =a n ; 
el=expressionl ; 
e2=expression2 ; 
e3=expression3 ; 
v=el; 
LABEL2: IF ( e3>=0) S (v>e2) | 
(e3<0)S(v<e2) 
THEN GO TO NEXT; 
IF (expressions) THEN; 
ELSE GO TO NEXT; 
statement-1 



statement-m 
LABEL1 : v=v+e3 ; 

GO TO LABEL2; 
NEXT: statement 

In the above expansion, a ± ,,.. r a n 
are expressions that may appear as 
subscripts of the control variable; 
tempx . . .temp n are compiler-created 
integer variables to which the expres- 
sion values are assigned; v is equi- 
valent to "variable" with the asso- 
ciated "temp" subscripts; "el," "e2," 
and "e3" are compiler-created varia- 
bles having the attributes of 
"expressionl," " express ion 2, " and 
"expression3," respectively. In the 
simplest cases, there are no sub- 
scripts (i.e., n=0) and the first 
statement in the expansion is there- 
fore el=expressionl. 



Additional rules for the 
expansion follow: 



above 



statement n 
GO TO LABEL; 
NEXT: statement 



3. In Option 3, the DO statement delimits 
the start of a DO group and specifies 
controlled repetitive execution 
defined by the following: 



a. The above expansion only shows the 
result of one "specification." If 
the DO statement contains more 
than one "specification," the 
statement labeled NEXT is the 
first statement in the expansion 
for the next "specification." The 
second expansion is analogous to 
the first expansion in every res- 
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pect. Thus, if a second 
"specification" appeared in the DO 
statement (with expressionl 
through expressions represented by 
expressions through expression8) , 
the second expansion would look 
like this: 



NEXT: 



e5=expression5; 



v=e5; 
LABEL3: IF . . . THEN GO TO NEXT1; 
IF (expressions) THEN; 

ELSE GO TO NEXT1; 
statement- 1 



statement-m 
LABEL4: v=v+e7; 

GO TO LABEL3; 
NEXT1 : statement 

b- If the WHILE clause is omitted, 
the IF statement immediately 
preceding statement-1 in the 
expansion is omitted. 

c. If "TO expression2" is omitted, 
the statement n e2=expression2" and 
the IF statement identified by 
LABEL2 are omitted. 

d. If both "TO express ion2" and "BY 
expression3" are omitted, all 
statements involving e2 and e3 f as 
well as the statement GO TO 
LABEL2, are omitted. 

e- Although the above expansions show 
a specific order, in which the BY 
and TO clauses are evaluated, no 
specific ordering is defined by 
the language. 

1. The WHILE clause in Options 2 and 3 
specifies that before each associated 
execution of the DO group, the expres- 
sion is evaluated and, if necessary, 
converted to give a bit-string value. 
If any bit in the resulting string has 
the value '1*, the iteration contin- 
ues. If all bits have the value '0*, 
the iterations associated with the 
current specification are terminated. 

5. In the specification list, in Option 
3, expressionl represents the starting 
value of the control variable. 
Expression3 represents the increment 
to be added to the control variable 
after each iteration of the statements 
in the DO group. Expression2 rep- 
resents the terminating value of the 
control variable. Iteration termi- 
nates as soon as the value of the 



control variable passes its terminat- 
ing value. When the last specifi- 
cation is completed, control passes to 
the statement following the DO group. 

6. Control may, under any circumstances, 
be transferred into a DO group from 
outside the DO group if the DO group 
is delimited by the DO statement in 
Option 1; that is, iteration is not 
specified. If the DO group is itera- 
tive, a GO TO statement can transfer 
control to a statement inside the 
group only if the GO TO specifies an 
abnormal return from a block that has 
been activated from within the DO 
group . 

7. The effect of allocating or freeing 
the control variable is undefined. 

Examples: 

1. DO INDEX = Z WHILE (A>B) , 5 TO 10 
WHILE (A = B) , 100; 

2. DO I = 1 TO 9,11 TO 20; 

3. DO WHILE (P) ; 

4. DO; 

5. DO WHILE (TAX-DEDCT < ESTTAX * U); 

6. DO COMPLEX (X,Y) = BY 1+11 WHILE 

(X<10); 



The END Statement 



Function: 

The END statement terminates blocks and 
DO- groups. 

General format: 

END [label]; 

General rules: 

1. If a label follows END, the END state- 
ment terminates the unclosed block or 
DO-group that is headed by the nearest 
preceding heading statement having 
that label; it also terminates all 
unclosed blocks and DO-groups that are 
physically within that block or group. 

2- If a label does not follow END, the 
END statement terminates that group or 
block headed by the nearest preceding 
DO, BEGIN, or PROCEDURE statement for 
which there is no other corresponding 
END statement. 
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3. If control reaches an END statement 
terminating a procedure, it is treated 
as a RETURN statement. 

4. If control reaches an END statement 
which terminates a BEGIN block that is 
an on-unit f control is returned to the 
point specified for that particular 
interrupt. 

5. If a label follows END, that label may 
not be an element of a label array. 

For examples, see "Use of the END state- 
ment," in Chapter 1. 



This statement is equivalent to: 

A: ENTRY; 
I: ENTRY; 

If the entry point were invoked by a 
function reference tc A, a floating- 
point value will be returned; if to I, 
a fixed-point value. 

4. An ENTRY statement cannct be internal 
to a begin block, nor can it be 
internal to a DO group that specifies 
iteration. 

5. A condition prefix cannct be prefixed 
to an ENTRY statement. 



The ENTRY Statement 



Function: 



The EXIT Statement 



The ENTRY statement specifies a secon- 
dary entry point to a procedure. 

General format: 



{ entry- name : > ... ENTRY 

[(parameter [, parameter] 
[data-attributes] ; 



.)] 



Function: 

The EXIT statement causes immediate 
termination of the task that contains the 
statement and all tasks attached by this 
task. If the EXIT statement is executed in 
a major task, it is equivalent to a STOP 
statement. 



General rules: 



General format: 



1. The parameters are names that specify 
the parameters of the entry point. 
When the entry is invoked, a relation- 
ship is established between the argu- 
ments of the invocation and the param- 
eters of the invoked entry point. 

2. The data attributes with an ENTRY 
statement are the arithmetic, string, 
AREA, OFFSET, and POINTER attributes. 
The data attributes specify the char- 
acteristics of the value returned by 
the procedure when invoked as a func- 
tion by any of the entry names. The 
value specified in the RETURN state- 
ment of the invoked entry is convert- 
ed, if necessary, to conform to the 
specified data attributes. 

3. If an ENTRY statement has more than 
one label, each label is interpreted 
as if it were a single entry name for 
a separate ENTRY statement having the 
same parameter list. If data attri- 
butes are specified, they apply to all 
entry names. If no data attributes 
are specified, arithmetic defaults are 
applied separately to each name, 
depending upon the initial letter of 
the identifier. 

Consider the statement: 

A:I: ENTRY; 



EXIT; 
General rule: 



If an EXIT 
major task, th 
in that task 
FINISH on-unit 
An EXIT stat 
task terminate 
dants. The ev 
these tasks 
status values 
non-zero) . 



statement is executed in the 
e FINISH condition is raised 
On normal return from the 
, the program is terminated, 
ement executed in any other 
s the task and its descen- 
ent variables associated with 
are set complete,, and their 
are set to 1 (unless already 



T he FORMAT S t atement 

Function : 

The FORMAT statement specifies a format 
list for use with data transmitted under 
edit direction. 

General format: 

label: [label:] FORMAT (format- list) ; 

Syntax rules: 

1. The "format list" is as described for 
use with an edit-directed data speci- 
fication (see "Format lists" in Chap- 
ter 7) . 
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2. At least one "label" is required- It 
is the name of a statement label 
appearing in a remote format item. 

General rules: 

1. A GET or PUT statement may include a 
remote format specification, R, in the 
format list of an edit-directed data 
specification- That portion of the 
format list covered by the R format 
item must be specified in a FORMAT 
stcntement with a corresponding state- 
ment label. 

2. The remote format item and the FORMAT 
statement must be internal to the same 
block. 



Syntax rules: 

In Option 1, the "controlled variable" 
must be an unsubscripted, level-one 
controlled variable. 



2. In Option 2, the "based variable" must 
be an unsubs crip ted, level-one based 
variable. See "Locator 
Qualification," Chapter 2, for more 
details of locator qualifiers. 

3. The forms of Option 1 and Option 2 can 
be combined in the same FREE state- 
ment. 

General rules : 



3. A FORMAT statement encountered in 
sequential flow of control is treated 
as a no-operation. 

4- It is an error to attempt to transfer 
control to a FORMAT statement by means 
of a GO TO statement. 

5. The CHECK condition is never raised 
for the label of a FORMAT statement, 
whether the label is encountered in a 
format list or in sequential flow of 
control . 

Example : 

COMMON: FORMAT (A(5), F(5,2), X(3), 
F(10,0)); 



The FREE Statement 



Function: 



The FREE statement causes the storage 

controlled 
controlled 
allocation 
and subse- 
the iden- 



allocated for specified based or 
variables to be freed. For 
variables, the next most recent 
in the task is made available, 
quent references in the task to 
tifier refer to that allocation. 

General formats: 



Option 1 

FREE controlled-variable 

[., controlled-variable] . . . ; 

Option 2 

FREE [locator-qualifier->] 
based- variable 
[IN scalar-area -variable] 
[, [locator-qualif ier->] 
based- variable 
ITN sea lar-area -variable] ] 



1. Controlled storage allocated in a task 
cannot be freed by a descendant task. 

2. If a specified controlled identifier 
has no allocated storage at the time 
the FREE statement is executed, no 
attempt is made to free the storage. 

Rules 3 and 4 apply only to Option 2. 

3. A based variable can be used to free 
storage only if that storage has been 
allocated by a based variable having 
identical data attributes, including 
values of bounds, lengths, and area 
sizes. 

4. An IN option must be specified or 
implied if — and only if -- the 
generation to be freed was allocated 
in an area; the IN option must specify 
the area in which the generation was 
allocated. The effect of the FREE 
statement is to make the relevant 
storage available for subsequent allo- 
cation by an ALLOCATE statement which 
names the same area in the IN option. 
If the reference to the variable to be 
freed is pointer-qualified by the 
POINTER built-in function (either 
explicitly, or implicitly by the 
appearance of an offset as the pointer 
qualifier), and the IN option is 
absent, the statement is executed as 
if it contains the IN option naming 
the area which is the second argument 
of the POINTER built-in function. 
Unless allocation has been in an area, 
the FREE statement cannot include an 
IN option nor can an IN option be 
implied by use of an offset variable. 



Examples: 

1- DCL A AREA, 
FREE V; 



OFFSET (A) , V BASED (0) ; 



The FREE statement is equivalent to 
FREE POINTER (0, A)->V IN (A); 
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2. 



The following excerpt from a procedure 
illustrates the FREE statement in con- 
junction with an ALliOCATE statement: 

DECLARE A(100) INITIAL ((100)0) 
CONTROLLED , C ( 1 00 ) , X(100); 



ALLOCATE A; 



option appears, the 
FILE(SYSIN) is assumed. 



file option 



3. 



C=A; 



FREE A; 

In the example below, it is assumed 
the declarations specified in Example 
4 of the ALLOCATE statement apply. 

FREE VALUE; 

Frees that portion of storage which is 
occupied by the generation of VALUE 
identified by pointer P. 

FREE T -> GROUP; 

Frees that portion of storage which is 
occupied by the generation of GROUP 
identified by pointer T. The value J 
is used to determine the dimensions of 
PTS and VALUES. 



The GET Statement 

Function: 

The GET statement normally causes values 
from a data set to be assigned to variables 
specified in a data list. Alternatively, 
the values may come from a character-string 
variable. 

General format: 

GET option-list ; 

Following is the format of "option 
list": 



FILE (filename) [COPY] 

[SKIPt (scalar-expression) ] ] 

STRING (scalar-character- string- 
variable) 



[data-specification] ; 

Genereil rules: 

1. If neither the FILE (filename) option 
nor the STRING (character-string-name) 



2, The data specification must appear 
unless the SKIP option is specified. 



3. The options may appear in any order. 



4. The filename refers to a file which 
has been associated, by opening, with 
the data set which is to provide the 
values. It must be a STREAM INPUT 
file. 

5. The "scalar-character-string-variable" 
refers to the character string that is 
to provide the data to be assigned to 
the data list. This name may be a 
reference to a character string built- 
in function. Each GET operation using 
this option always begins at the 
beginning of the specified string. If 
the number of characters in this 
string is less than the total number 
of characters implied by the data 
specification, the ERROR condition is 
raised. 

6. When the STRING option is used under 
data-directed transmission, the ERROR 
condition is raised if an identifier 
within the string does not have a 
match within the data specification- 

7. For the rules concerning data specifi- 
cation see "Data Lists", Chapter 7. 

8. If the FILE (filename) option refers 
to a file that is not open in the 
current task, the file is implicitly 
opened in the task for stream input 
transmission. 

9. The COPY option, which may only bo 
used with the file option, specifies 
that the source data, as read, is to 
be written, without alteration, on the 
standard installation print file- 

10, The SKIP option, which may only be 
used with the file option, causes a 
new current line to be defined for the 
data set. The expression, if present, 
is converted to an integer w, which 
must be greater than zero. The data 
set is positioned at the start of the 
wth line relative to the current line. 
If the expression is omitted, SKIP(l) 
is assumed. The SKIP option always is 
executed before any data is transmit- 
ted. 

Examples: 

1. GET LIST (A,B,C) ; 
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Specifies the list- directed transmis- 
sion of the values to be assigned to 
A, B and C from the file SYSIN. 

2. GET FILE (BETA) EDIT (X,Y,Z) (A(5), 
F(5,2) f A(10)); 

Specifies the edit-directed transmis- 
sion of the values assigned to X, Y 
and Z from file BETA. 



4. 



of the expression that contained the 
corresponding function reference is 
discontinued, and control is trans- 
ferred to the specified statement. 



A GO TO cannot terminate any block 
activated during a prologue or during 
execution of an ALLOCATE statement. 



The GO TO Statement 



Examples: 
1- GO TO A234; 



Function: 



The GO TO statement causes control for a 
task to be transferred to the specified 
statement within the task. 

General format : 

(GO TOWlabel- const ant; \ 
(GO TOJ (scalar- label- variable; ) 

General rules: 

1. If a label variable is specified, the 
GO TO statement has the effect of a 
multi-way switch. The value of the 
label variable is the label of the 
statement to which control is trans- 
ferred- 

Since the label variable may have 
different values at each execution of 
the GO TO statement, control may not 
always pass to the same statement. 
(Example 2 illustrates a GO TO state- 
ment used as a multi-way switch.) 

2. A GO TO statement cannot pass control 
to an inactive block or to another 
task. 

A GO TO statement cannot transfer 
control from outside a DO group to a 
statement inside the DO group if the 
DO group specifies iteration except in 
a case in which the GO TO specifies an 
abnormal return from a block that has 
been activated from within the DO 
group- 

3. A GO TO statement that transfers con- 
trol from one block (D) to a dynami- 
cally encompassing block (A) has the 
effect of terminating block D, as well 
as all other blocks that are dynami- 
cally descendant from block A,. On- 
units are reestablished, and automatic 
variables are freed in the same way as 
if the blocks were terminated 
normally. When a GO TO statement 
transfers control out of a procedure 
invoked as a function, the evaluation 



2. 



A234: .. 



The following example illustrates a GO 
TO statement that effectively is a 
multi-way switch: 



(LI, L2) INITIAL 



3. 



DECLARE L LABEL 

(L2) ; 

GO TO MEET; 
LI: X = Y - 1; 

L = L2; 

GO TO MEET; 
L2: Y = X -1; 

L = LI ; 
MEET: CALL FUDGE (X, Y, Z) ; 

IF Z = LIMIT THEN GO -"0 L; 



The following procedure illustrates 
use of the GO TO statement with a 
subscripted label variable to effect a 
mult i -way switch: 



CALC: 



CALC1 



PROCEDURE (Nl, N2); 

DECLARE SWITCH (3) LABEL INITIAL 

(CALC1, CALC 2, CALC 3) ; 

I=M0D(N1+N2,3)+1; 

GO TO SWITCH (I) ; 



RETURN ; 
CALC2 : 



RETURN; 
CALC 3 : 



END CALC; 
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The IF Statement 



Examples: 



Function: 

The IF statement specifies evaluation of 
an expression and conversion to bit string, 
and a consequent flow of control dependent 
upon the value of the bit string. 

General format: 

IF scalar-expression THEN unit-1 [ELSE 
unit-2] 



1. IF A = Z THEN CALL X(0); 

ELSE CALL X(A) ; 

2. IF X > Y 

THEN IF Z = W 

THEN L: Y = 1; 
ELSE; 

ELSE (SIZE) : Y = A; 

3. IF A THEN GO TO M; 
GO TO N; 



Syntax rules: 

1. Each "unit" is a DO-group r a begin 
block, or any statement, other than 
DECLARE, END, ENTRY, FORMAT, or PROCE- 
DURE. The unit may have its own 
labels and condition prefixes. 

2. The IF statement is not itself termi- 
nated by a semicolon. 

General rules: 

1- When the ELSE clause — ELSE, and its 
following unit -- is not specified, 
the scalar expression is evaluated 
and, if necessary, converted to a bit 
string. If any bit in the resulting 
string has the value 1, unit-1 is 
executed, and control passes to the 
statement following the IF statement. 
If all bits have the value 0, unit-1 
is not executed, and control passes to 
the next statement. When the ELSE 
clause is specified, the expression is 
similarly evaluated. If any bit is 1, 
unit-1 is executed, and control passes 
to the statement following the IF 
statement. If all bits have the value 
0, unit-2 is executed, and control 
passes to the next statement. The 
units may contain statements that 
specify transfer of control and so 
override these normal sequencing 
rules. 

2. IF statements may be nested, that is, 
either unit-1 or unit-2, or both, may 
themselves be IF statements,. Each 
ELSE clause is always associated with 
the innermost unmatched IF in the same 
block or DO group; consequently, an 
ELSE or a THEN with a null statement 
may be required to specify a desired 
sequence of control. 

3. A condition prefix to an IF statement 
enables (or disables) the condition 
only during evaluation of the scalar 
expression of the IF clause; it is not 
applicable to either of the THEN or 
ELSE clauses, which may have their own 
condition prefixes. 



The LOCATE Statement 



Function: 



The LOCATE Statement, which applies to 
BUFFERED OUTPUT files, causes allocation of 
the specified based variable in a buffer; 
it may also cause transmission of a based 
variable previously allocated in a buffer. 

General format: 

LOCATE variable option-list ; 

Following is the format of "option 
list": 

FILE (filename) 

[SET (scalar-pointer- variable) ] 
[KEYFROM ( scalar-expression) ] 

Syntax rules: 

1. The options in the option list may 
appear in any order. 

2. The "variable" must be an unsubscript- 
ed level 1 based variable. 

General rules: 

1. The FILE (filename) option specifies 
the file involved. This option must 
appear. 

2. Execution of a LOCATE statement causes 
the specified based variable to be 
allocated in the buffer. Components 
of the based variable that have been 
given the INITIAL attribute, or compo- 
nents specified in REFER options, are 
initialized. A pointer value is 
assigned to the pointer variable named 
in the SET option or, if the SET 
option is omitted, to the pointer 
variable specified in the declaration 
of the based variable. The pointer 
value identifies the record in the 
buffer. If the pointer variable is an 
offset variable, the pointer value is 
implicitly converted. After execution 
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of the LOCATE statement in a task, 
values may be assigned to the based 
variable for subsequent transmission 
to the file, which will occur immedi- 
ately before the next LOCATE, WRITE, 
or CLOSE operation on the file in the 
task, at which time the record is 
freed. 



3. If the KEYFROM (expression) option 
appears, the value of the scalar 
expression is converted to a character 
string and is used as the key of the 
record when it is subsequently writ- 
ten. 



4. If the FILE (filename) option refers to 
a file that is not open in the current 
task, the file is implicitly opened in 
the task. 



Example: 

LOCATE ALPHA SET 
(BETA) ; 



(REC POINT) 



FILE 



The based variable ALPHA is allocated 
in a buffer and REC_POINT is set to 
identify ALPHA in the buffer. Values 
may subsequently be assigned to ALPHA 
and the record will be written in the 
data set associated with file BETA 
when a subsequent LOCATE or WRITE 
statement is executed for file BETA or 
if BETA is closed, either explicitly 
or implicitly. 



The ON Statement 



Function: 

The ON statement specifies the action to 
be taken when an interrupt occurs for the 
named condition. For a discussion of 
"enable" and "interrupt," see "Interrupt 
"Operations" in Chapter 6. 

General format: 

Option 1 

ON condition [SNAP! on-unit 

Option 2 

ON condition [SNAP] SYSTEM; 

Syntax rules: 

1. The "condition" may be any one of 
those described in Appendix 3. 

2. The "on-unit" is an action specifi- 
cation, and it is either an unlabeled 
single simple statement (other than 
BEGIN, DO, END, RETURN, ENTRY, FORMAT, 
PROCEDURE, or DECLARE) or an unlabeled 
begin block. It may have a condition 
prefix. Since the on-unit itself 
requires a semi-colon, no semi-colon 
appears in Option 1. 

3. The on-unit may not be a RETURN state- 
ment, nor may a RETURN statement be 
internal to the begin block. 

General rules: 



The Null Statement 

Function: 

The null statement is a no-operation. 

General format: 

Example : 

ON OVERFLOW; 
The on-unit is a null statement. 



1. An ON statement, such as in Option 1, 
must be executed before its effect can 
be established. 

2. The standard action to be taken for 
all ON-conditions is defined by the 
language. When an interrupt takes 
place before an ON statement for that 
condition has been executed, standard 
system action is taken. This standard 
system action is described in Appendix 
3. The ON statement in Option 2 
specifies that standard system action 
is to be taken when an interrupt 
results from the occurrence of the 
specified condition,. 

3. The ON statement in Option 1 is a 
means for the programmer to specify 
action (other than standard system 
action) , that is, execution of the 
on-unit, to take place when an inter- 
rupt occurs for the specified condi- 
tion. The on-unit is treated as a 
procedure internal to the block in 
which it appears. 
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If SNAP is specified, then when the 
given condition occurs, a calling 
trace is listed. 

Control can reach an on-unit only when 
an interrupt occurs for the condition 
associated with this on-unit in an ON 
statement- 

If an action specification is esta- 
blished by execution of an ON state- 
ment, it remains in effect until it is 
overriden by another ON statement or 
REVERT statement specifying the same 
condition, or until termination of the 
block in which the ON statement is 
executed. 

A single statement on-unit cannot con- 
tain a remote format item. 



The OPEN Statement 



The FILE (filename) option specifies 
which file is to be opened. The 
option must appear once in each 
options group. Several files can be 
opened by one OPEN statement. 



If a file has been opened in a parti- 
cular task and not subsequently 
closed, then re- opening this file in 
the same task or a descendant task has 
no effect on the file or its associat- 
ed data set- All options (including 
TITLE) are evaluated whether or not 
they conflict with the options of the 
previous OPEN, but they are not used. 
If a file has been opened and subse- 
quently closed, it may be re-opened in 
the task that originally opened it, 
but any attempt to open it (or use it) 
in a descendant of that task — if the 
descendant has inherited the file as 
an open file — will give undefined 
results. 



Function: 



The "argument" in the IDENT option is 
used as follows: 



The OPEN statement associates a 
with a data set and completes the 
cation of attributes for the file. 

General format: 



filename 
specif i- 



OPEN options-group [, options-group] ,,.. ; 

Following is the format of "options 
group" : 

FILE (filename) 

[IDENT (scalar- argument) ] 

[TITLE (scalar-expression) ] 

[INPUT | OUTPUT | UPDATE] 

[STREAM | RECORD] 

[DIRECT | SEQUENTIAL] 

[BUFFERED | UNBUFFERED] 

[EXCLUSIVE] 

[KEYED] 

[BACKWARDS] 

[PRINT] 

[LINESIZE (scalar-expression)] 

[PAGESIZE (scalar-expression)] 

General rules: 

1. The INPUT, OUTPUT, UPDATE, STREAM, 
RECORD, DIRECT, SEQUENTIAL, BUFFERED, 
UNBUFFERED, EXCLUSIVE, KEYED, BACK- 
WARDS, and PRINT options specify 
attributes which may augment the 
attributes specified in the file dec- 
laration; the options may repeat 
attributes specified in a DECLARE 
statement, but they must not conflict 
with any declared attributes. 

2. The options may appear in any order 
within a group. 



Input files: The argument must be a 
character-string variable that may be 
subscripted. The data set is examined 
for an identifying user label which is 
then assigned to the variable given as 
the argument. The label will be a 
header label unless the file is a 
BACKWARDS file, in which case it will 
be a trailer label. If there is no 
label, a null string will be assigned 
to the character string variable. 



Output files: 



The 
Its 



argument is an 
expression. Its character- string 
value of the argument is placed with 
the data set as a header label. 



Update files : The argument must be a 
character-string variable that may be 
subscripted. The data set is examined 
for an identifying label which is then 
assigned to the variable given as the 
argument. The label is a header 
label . 

If the TITLE (expression) option 
appears, the expression is converted 
to a character string which is used in 
the association of a data set with the 
file. If the option does not appear, 
a character string identical to the 
filename is taken as the identifi- 
cation. In the case of a parameter, 
the identifier of the original argu- 
ment passed to the parameter, rather 
than the identifier of the parameter 
itself, is used. A data set may be 
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accessed by two or more files only 
all the files are direct. 



if 



7. The LINESIZE option can be specified 
only for a STREAM OUTPUT file. The 
expression is evaluated, converted to 
an integer, and used as the length of 
a line during subsequent operations on 
the file. New lines may be started by 
use of the printing and control format 
items or by options in a GET or PUT 
statement. If an attempt is made to 
position a file past the end of a line 
before explicit action to start a new 
line is taken, a new line is automat- 
ically started, and the file is posi- 
tioned to the start of this new line. 
If no LINESIZE is given for a STREAM 
OUTPUT file, an implementation-defined 
default is supplied. 

The LINESIZE option cannot be spec- 
ified for an INPUT file. The linesize 
taken into consideration whenever a 
SKIP option appears in a GET statement 
is the linesize that was used to 
create the data set. 

8. The PAGESIZE option can be specified 
only for a STREAM PRINT file. The 
expression is converted to an integer 
and used as the number of lines on a 
page. During subsequent output to the 
file, new pages may be started by use 
of the PAGE format item or PUT state- 
ment option. If a page becomes over- 
filled before action to start a new 
page is given, the END PAGE condition 
is raised. Default is implementation 
defined. 



Examples: 

1. OPEN FILE (ALPHA), FILE 
CWORKFILE') ; 



(BETA) TITLE 



The files ALPHA ancl BETA are opened. 
The data set associated with BETA is 
identified through use of the name 
WORKFILE, whereas ALPHA is identified 
with a data set through use of the 
name ALPHA. 

OPEN FILE (MASTER) UPDATE; 

The file MASTER is opened as an UPDATE 
file. MASTER is the name used to 
associate a data set with the file. 



1. Identifies a portion of program text 
as a procedure. 

2. Defines the primary entry point to a 
procedure. 

3. Specifies the parameters for the pri- 
mary entry point. 

4. Defines any special attributes of the 
procedure. 

5. Specifies the attributes of the value 
that is returned if the procedure is 
invoked as a function at the primary 
entry point. 

General format: 

t entry-name: } ... PROCEDURE 

[ (parameter [, parameter]...)] 
[OPTIONS (option-list)] 
[RECURSIVE] [data-attributes] ; 

Syntax rules: 

1. The data attributes and the OPTIONS 
and RECURSIVE options may appear in 
any order. 

2. The syntax of the OPTIONS list is 
implementation- defined. 

General rules: 

1. The "parameters" are names that speci- 
fy the parameters of the entry point. 
When the procedure is invoked, a rela- 
tionshio is established between the 
arguments of the invocation and the 
parameters of the invoked entry point 
(see "Correspondence of Arguments ancl 
Parameters" in Chapter 6). 

2. OPTIONS specifies a list of options, 
which depends upon implementation. 
OPTIONS may be specified for any pro- 
cedure. 

3. RECURSIVE specifies that the procedure 
may be invoked recursively. This 
option applies only to the procedure 
for which it is declared, but not any 
procedures contained in it. It is an 
error to invoke a procedure recursive- 
ly by any of its entry points if it is 
not given the RECURSIVE option in its 
PROCEDURE statement. 



The PROCEDURE Statement 



Function: 



The PROCEDURE statement has the follow- 
ing functions: 



The data attributes permitted with a 
PROCEDURE statement are the arithmet- 
ic, string, AREA, OFFSET, and POINTER 
attributes. The data attributes spec- 
ify the characteristics of the value 
returned by the procedure when invoked 
as a function at the primary entry 
point. (This rule applies to each 
entry name by which the procedure may 
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be Invoked, i.e., each entry name 
prefixed to the PROCEDURE statement.) 
The value specified in the RETURN 
statement of the invoked procedure is 
converted to the specified data attri- 
butes. 



If a PROCEDURE statement has more than 
one entry name, the first name is 
interpreted as the only label on the 
statement; each subsequent entry name 
is interpreted as a separate ENTRY 
statement having an identical paramet- 
er list and the same data attributes 
as written in the PROCEDURE statement. 
This equivalence is true only after 
multiple closure has been resolved. 
Defaults for the data attributes are 
applied separately for each such entry 
statement and for the resulting proce- 
dure statement. If no data attributes 
are specified, arithmetic defaults are 
applied separately to each name, 
depending upon the initial letter of 
the identifier. 



For example, the statement 



A: I: PROCEDURE; 



The PUT Statement 



Function: 

The PUT statement causes the transmis- 
sion of data and/or the execution of con- 
trol options. Data items transmitted are 
the character-string representations of 
values of expressions that are assigned to 
a data set or to a designated character- 
string variable. 

General format: 

PUT option- list ; 

Following is the format of "option 
list": 

[FILE (filename) | STRING 

(scalar- character- st ring- variable) ] 

[data -specif ication] [PAGE] 
[SKIP [(expression)]] 
[LINE (expression)] 

Syntax rule : 

The PAGE, SKIP, and LINE options cannot 
be used with the STRING option. 

General rules: 



is effectively the same as: 



h • PROCEDURE; 
I: ENTRY; 

Since no data attributes are specified 
in the example, defaults will differ 
for the two entry names. The equiva- 
lance applies only after multiple clo- 
sure has been resolved. 

Example: 

B: PROCEDURE; 

DECLARE A RETURNS (FIXED) ; 



D=A(X,Y) ; 
END B; 
A: PROCEDURE (B,C) FIXED; 



RETURN (B*C + SIN (P)); 
END A; 

If procedure A is invoked as a func- 
tion, as it is in procedure B, then 
when control is returned to B, the 
expression (B*C + SIN (P)) is evaluat- 
ed, converted to fixed point, and the 
value assigned to D in procedure B. 



If neither the FILE (filename) option 
nor the STRING (character string name) 
appears, the file option 
FILE(SYSPRINT) is assumed. 

The "filename" refers to a file that 

has been associated, by opening, with 

the data set that is to receive the 

values. It must be a STREAM OUTPUT 
file. 

The "scalar-character-string-variable" 
refers to the character string 
variable or pseud o- variable that is to 
receive the values. 

After appropriate conversion, the 
data specified by the data list is 
assigned to the string starting at the 
leftmost character (leftmost specified 
character in the case of a SUBSTR 
pseudo-variable) . Note that any sub- 
sequent PUT statement will cause 
assignment to begin at the same place. 
If the string is not long enough to 
accommodate the data, the ERROR condi- 
tion is raised. 

The options may appear in any order. 
The PAGE and LINE options can be 
specified for PRINT files only. All 
of the options take effect before 
transmission of any values defined by 
the data specification, if given. Of 
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the three, only PAGE and LINE may 

appear in the same PUT statement, in 

which case, the PAGE option is applied 
first. 

5. The PAGE option causes a new current 
page to be defined within the data 
set. If a data specification is pre- 
sent, the transmission of values 
occurs after the definition of the new 
page. The page remains current until 
the execution of a PUT statement with 
the PAGE option, until a PAGE format 
item is encountered, or until an END- 
PAGE interrupt results in the 
definition of a new page. A new 
current page implies line one. 

6. The SKIP option causes a new current 
line to be defined for the data set. 
The expression, if present, is con- 
verted to an integer w, which for 
non-PRINT files must be greater than 
zero. The data set is positioned at 
the start of the wth line relative to 
the current line. If the expression 
is omitted, SKIP(l) is assumed. 

For PRINT files w may be less than 
or equal to zero; in this case, the 
effect is that of a carriage return 
with the same current line. If less 
than w lines remain on the current 
page when a SKIP(w) is issued, ENDPAGE 
is raised. 



Specifies that a new page is to be 
defined for the print file LIST. The 
values of X, Y and Z are placed 
starting in the first printing posi- 
tion of the new page. Each of the 
values will use the A(10) format item. 



The READ Statement 



Function: 

The READ statement causes a record to be 
transmitted from a RECORD INPUT or RECORD 
UPDATE file to a variable or buffer. 



General format: 



READ option- list ; 



Following is the format of "option 
list": 



FILE (filename) 
"INTO (variable) 
SET (scalar-pointer-variable) 
_IGNORE (scalar-expression) 



KEY (scalar-expression) 
KEYTO 

_ (character-string-scalar-variable) J 
[EVENT ( event-scalar- variable) ] 
[NO LOCK] 



The LINE option causes a current line 
to be defined for the data set. The 
expression is converted to an integer 
w. If w specifies the current line of 
the most recent PUT statement, no new 
current line is established. If w is 
greater, blank lines are inserted so 
thcit the next line will be the wth 
line of the current page. If more 
than w lines have already been written 
on the current page or if w exceeds 
the limits set by the PAGESIZE option 
of the OPEN statement or by default , 
the ENDPAGE condition is raised. If w 
is less than or equal to zero, it is 
assumed to be 1. 



General rules: 

1. The options may appear in any order. 

2. The FILE (filename) option specifies 
the file from which the record is to 
be read. This option must appear. If 
the file specified is not open in the 
current task, it is implicitly opened 
in the task. 

3. The INTO (variable) option specifies an 
unsubscripted level 1 variable into 
which the record is to be read. It 
cannot be a parameter, nor can it have 
the DEFINED attribute. 



8. If the FILE (filename) option refers to 
a file that is not open in the current 
task, the file is opened implicitly in 
this task for stream output. 

Examples : 

1. PUT DATA (A,B,C) ; 

Specifies the data-directed transmis- 
sion of the values A, B and C to the 
file SYSPRINT. 

2. PUT FILE (LIST) EDIT (X,Y,Z) (A (10)) 
PAGE ; 



The KEY and KEYTO options can be 
specified for KEYED files only. 

The KEY (expression) option must appear 
if the file is DIRECT. The expression 
is converted to a character string 
that determines which record is read. 

The KEYTO (character-string-variable) 
option may be given only if the file 
is SEQUENTIAL. It specifies that the 
key of the record is to be copied into 
the string variable, which may be a 
pseudo-variable. This copying follows 
the rules for character string assign- 
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ment, and if proper assignment cannot 
be made, the KEY condition is raised. 
The key will match that which was 
specified in the KEYFROM option when 
the record was written. KEYTO and KEY 
may not appear in the same READ state- 
ment. 



The EVENT (event- variable) option 
allows processing to continue while 
the record is being read or ignored. 
It may not be specified for SEQUENTIAL 
BUFFERED files." If the EVENT (event 
variable) option is given, the event 
variable will be set active and will 
be given the value "O'B until the 
execution is complete, when it will be 
give>n the value ' l'B. The execution 
of a READ statement with an EVENT 
option is considered complete only 
after the execution of a WAIT state- 
ment naming that event variable. 

Any READ statement referring to an 
EXCLUSIVE file will cause the record 
to be locked for access by a given 
opening of a file unless the NOLOCK 
option is specified. A locked record 
cannot be read, deleted, or rewritten 
by any other task until it is 
unlocked. Any attempt to read, 
delete, rewrite, or unlock a record 
locked by another task results in a 
wait. Subsequent unlocking can be 
accomplished by the locking task 
through the execution of an UNLOCK, 
REWRITE, or DELETE statement that spe- 
cifies the same key, by a CLOSE state- 
ment, or by completion of task in 
which the record was locked. 



INTO, SET, or IGNORE option is equi- 
valent to a READ with an IGNORE (1). 



11. A keyed file being accessed sequen- 
tially may be positioned by issuing a 
READ statement with the KEY option. 
The specified key will be used to 
identify the record required. 
Thereafter, records may be read 
sequentially from that point by use of 
READ statements without the KEY 
option. This applies to INPUT and 
UPDATE files. 

For BUFFERED SEQUENTIAL files, two 
positioning statements can be used, 
with the following formats: 

READ FILE (filename) 
INTO (variable) 
KEY (expression) ; 

RFAD FILE (filename) 

SET (pointer-variable) 
KEY (expression) ; 

For UNBUFFERED SEQUENTIAL files, 
only the first form shown immediately 
above can be used, and it may be 
specified with the EVENT option. 

Examples: 

1. READ FILE (ALPHA) SET (REC_IDENT) ; 

The next record from the data set 
associated with ALPHA is made availa- 
ble and the pointer variable REC_IDENT 
is set to identify the record in the 
buffer. 



Note thcit a record is considered 
locked only for tasks other than the 
task that eictually locks it; in other 
words, a locked record can always be 
read by the task that locked it and 
still remain locked as far as other 
tasks are concerned (unless, of 
course, the record has been explicitly 
unlocked by one of the above methods) . 

The SET option specifies that the 
record is to be rpad into a buffer and 
that a pointer value is to be assigned 
to the named pointer variable. The 
pointer value identifies the record in 
the buffer. 



READ FILE 
(WORK) ; 



(BETA) KEY (VALUE) INTO 



10. The IGNORE option 
SEQUENTIAL INPUT 
files. The exp 
option is evaluat 
an integer. If 
greater than z 
ignored; a subseq 
for the file wi 
record. A READ s 



may be specified for 
and SEQUENTIAL UPDATE 
ression in the IGNORE 
ed and converted to 
the value, n, is 
ero, n records are 
uent READ statement 
11 access the (n+l)th 
tatement without an 



The record identified by the key VALUE 
is transmitted from the data set asso- 
ciated with BETA into the variable 
WORK. 



The RETURN Statement 

Function: 

The RETURN statement terminates execu- 
tion of the procedure that contains the 
RETURN statement. If the procedure has not 
been invoked as a task, the RETURN state- 
ment returns control to the invoking proce- 
dure. The RETURN statement may also return 
a value. 

General format: 

Option 1. 

RETURN; 
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Option 2. 

RETURN (scalar-expression) ; 
General rules: 

1. Only the RETURN statement in Option 1 
can be used to terminate procedures 
not invoked as function procedures; 
control is returned to the point logi- 
cally following the invocation. 

Option 1 represents the only form 
of the RETURN statement that can be 
used to terminate a procedure initiat- 
ed as a task. If the RETURN statement 
terminates the major task, the FINISH 
condition is raised prior to the exe- 
cution of any termination processes. 
If the RETURN statement terminates any 
other task, the completion value of 
the associated event variable (if any) 
is set to 'l'B, and the status value 
is left unchanged. 

2. The RETURN statement in Option 2 is 
used to terminate a procedure invoked 
as a function procedure only. Control 
is returned to the point of invoca- 
tion, and the value returned to the 
function reference is the value of the 
expression specified converted to con- 
form to the attributes declared for 
the invoked entry point. These attri- 
butes may be explicitly specified at 
the entry point; they are otherwise 
implied by the initial letter of the 
entry name through which the procedure 
is invoked. 

3. If control reaches an END statement 
corresponding to the end of a proce- 
dure, this END statement is treated as 
a RETURN statement (of the Option 1 
form) for the procedure. 

Example: 

A: PROCEDURE (X,Y) FIXED; 
DECLARE (X,Y) FLOAT; 



RETURN (X**2+Y**2); 

END; 
B : PROCEDURE ; 

DECLARE A ENTRY RETURNS (FIXED); 



R = A(P,Q) ; 



END ; 

In the assignment statement (R=A(P,Q);), 
procedure B invokes procedure A as a func- 



tion. Procedure B specifies that the sca- 
lar expression in the RETURN statement is 
to be evaluated; since X and Y are 
floating-point variables and the PROCEDURE 
statement specifies that the value returned 
is to be fixed point, the value of the 
expression is converted to fixed point, and 
this value is returned to B. 



The REVERT Statement 



Function: 

A REVERT statement specifying a given 
ON-condition is used to reestablish the 
action specification for the named condi- 
tion as it was in the immediate, dynamical- 
ly encompassing block. In the case of an 
initial external procedure, standard system 
action is established. 

General format: 



REVFRT condition; 

Syntax rule: 

The "condition" is 
(see Appendix 3). 



any ON-condition 



Examples: 
A: PROCEDURE; 



ONI: ON ZERODIVIDE GO TO ERRSPEC ; 



CALL B; 



B: PROCEDURE; 



0N2:0N ZERODIVIDE; 



REVERT ZERODIVIDE: 



END B; 



END A; 
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Unless it is stated otherwise, the con- 
dition ZERODIVIDE always is enabled. If 
division by zero occurs prior to execution 
of statement ONI, an interrupt with stand- 
ard system action takes place. 

If division by zero occurs after execu- 
tion of ONI and prior to execution of 
statement 0N2, an interrupt takes place and 
control transfers to the statement GO TO 
ERRS PEC. 

If division by zero occurs after execu- 
tion of 0N2 and prior to the REVERT state- 
ment, an interrupt takes place effectively 
with no action. 

When the REVERT statement is executed, 
the effect of the statement 0N2 is nulli- 
fied, and statement ONI again becomes 
effective. 



option can be omitted for SEQUENTIAL 
BUFFERED UPDATE files only, in which 
case, the file is updated from the 
buffer associated with the file. 

The EVENT (event-variable) option 
allows processing to continue while 
the record is being written. It may 
not be specified for SEQUENTIAL BUF- 
FERED files. If the EVENT (event 
variable) option is given, the event 
variable will be made active and will 
be given the value 'O'B until the 
execution is complete, when it will be 
given the value 'l'B. The execution 
of a REWRITE statement with an EVENT 
option is considered complete only 
after the execution of a WAIT state- 
ment naming that event. 

If the record rewritten is one that 
was locked in the same task, it 
becomes unlocked. 



The REWRITE Statement 



Function : 



The REWRITE statement causes replacement 
of an existing record in a data set 
referred to by an UPDATE file. 

General format: 



Example: 

REWRITE FILE (ALPHA) ; 

The last record read from the data set 
associated with file ALPHA is rewrit- 
ten from the buffer. 



REWRITE option- list ; 

Following is the format of "option 
list": 



The SIGNAL Statement 



Function: 



FILE (filename) [KEY (scalar-expression) ] 
[FROM(variable) ] 
tFVFNT (event-scalar-variable) ] 

General rules: 

1. The options may appear in any order. 

2. The FILE (filename) option specifies 
the file involved. If it refers to a 
file that is not open in the current 
task, the file is opened implicitly in 
this task. 

3. The KEY (expression) option must appear 
if the file is a DIRECT UPDATE file 
and it cannot appear otherwise. The 
expression is converted to a character 
string and determines which record is 
written. 

4. The FROM (variable) option may be given 
to specify an unsubscripted level 1 
variable which is to be used as the 
source for the record. The 
FROM(variable) option must be speci- 
fied for a DIRECT UPDATE or SEQUENTIAL 
UNBUFFERED UPDATE file. The FROM 



The SIGNAL statement simulates the 
occurrence of the named condition and caus- 
es an interrupt if the condition is ena- 
bled. It may be used to test the action 
specification of the current ON statement. 

General format: 

SIGNAL condition; 

Examples: 

1. X: PROCEDURE; 



ONI: ON ENDFILE (DATIN) Y,Z = 0; 



SI: SIGNAL ENDFILE (DATIN); 



ON2: ON ENDFILE (DATIN) SYSTEM; 
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S2: SIGNAL ENDFILE (DATIN) ; 



END X; 

The Si statement causes an inter- 
rupt in the same way as if an attempt 
to read past a file delimiter had 
actually occurred. Control is trans- 
ferred to the statement Y,Z = in the 
ONI statement. 

When the S2 statement causes an 
interrupt, control is transferred to 
the 0N2 statement, and standard system 
action is taken. 

2. ON CONDITION (TAX) TAXCT = TAXCT+1; 



Following is the format of "option 
list": 

FILE (filename) KEY(scalar-expression) 

General rules : 

1. The options may appear in either 
order. 

2. The FILE (filename) option specifies 
the file involved, which must have the 
attributes UPDATE, DIRECT, and EXCLU- 
SIVE. If the file is not open in the 
current task, it is opened implicitly. 

3. In the KEY (expression) option, the 
"expression" is converted to a charac- 
ter string that determines which 
record is unlocked. 



SIGNAL CONDITION (TAX) ; 

The ON statement establishes an 
action for the programmer-specified 
condition TAX. This condition can 
occur only when a SIGNAL statement 
causes the condition to occur. 



U. 



A record can be unlocked only by the 
task which locked it. 



The WAIT statement 



The STOP Statement 



Function: 

The STOP statement causes immediate ter- 
mination of the major task and all sub- 
tasks. 

General format: 

STOP; 

General rule: 

Prior to any termination activity the 
FINISH condition is raised in the task in 
which the STOP is executed. On normal 
return from the FINISH on-unit, all tasks 
in the program are terminated. 



The UNLOCK Statement 

Function: 

The UNLOCK statement makes the specified 
locked record available to other tasks for 
operations on the record. 

General format: 

UNLOCK option-list; 



Function: 

The execution of a WAIT statement within 
an activation of a block retains control 
for that activation of that block within 
the WAIT statement until certain specified 
events have completed. 

General format: 

WAIT (event [ , event] ) 

[ (scalar- expression) ] ; 

Syntax rule: 

Each event is an event variable or 
structure consisting only of event varia- 
bles. 

General rules: 

1. Control for a given block activation 
remains within this statement until, 
at possibly separate times during the 
execution of the statement, the condi- 
tion 

COMPLETION (event) = 'l'B 

has been satisfied, for some or all of 
the events in the list. 

2. If the optional expression does not 
appear, all the event names in the 
list must satisfy the above condition 
before control returns to the next 
statement in this task following the 
WAIT. 
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3. If the optional expression appears, 
the expression is evaluated when the 
WAIT statement is executed and con- 
verted to an integer. This integer 
specifies the number of events in the 
list that must satisfy the above con- 
dition before control for the block 
passes to the statement following the 
WAIT. Of course, if an on-unit 
entered due to the WAIT is terminated 
abnormally, control might not pass to 
the statement following the WAIT. 



If the value 
zero or negative, 
is treated as 
the value of the 
than the number, 
list, the value 
the statement ref 
of event variabl 
in the aggregate 
count. 



of the expression is 
the WAIT statement 
a null statement. If 
expression is greater 
n, of events in the 
is taken to be n. If 
ers to an aggregate 
es, then each element 
contributes to the 



If the event variable named in the 
list has beem associated with a task 
in its attaching CALL statement, then 
the condition in Pule 1 will be satis- 
fied on termination of that task. 



pletion or termination of transmission 
of other events in the list. 

If an abnormal return is made from any 
on-unit enter el from a WAIT, the asso- 
ciated event variable is set complete, 
the execution of the WAIT is terminat- 
ed, and control passes to the point 
specified by the abnormal return. 



8. If some of the events i 
are associated with I/O 
have not been set compl 
WAIT is terminated ( 
enough events have been 
due to an abnormal 
incomplete events wil 
complete until the exec 
er WAIT referring to th 

Example: 

PI: PROCEDURE; 



CALL P2 EVENT (EP2) ; 



n the WAIT list 
operations and 
ete before the 
either because 
completed or 
return) , these 
1 not be set 
ution of anoth- 
ese events. 



5. If the event, variable named in the 
list is associated with an I/O opera- 
tion initiated in the same task as the 
WAIT, the condition in Rule 1 will be 
satisfied when the I/O operation is 
completed. The execution of the WAIT 
is a necessary part of the completion 
of an I/O operation. If prior to, or 
during, the w?TT ;*11 transmission 
associated with the I/O operation is 
terminated, then the ttAIT performs the 
following action: If the transmission 
has finished without requiring any I/O 
conditions to be raised, the event 
variable is set complete. If the 
transmission has been terminated but 
has required conditions to be raised, 
the event variable is set abnormal, 
and all the required ON conditions are 
raised. On return from the last on- 
unit, the event variable is set 
complete. 

6. The order in which ON conditions for 
different I/O events are raised is not 
dependent, on the order of appearance 
of the events in the list. If an ON 
condition for one event is raised, 
then all other conditions for that 
event are raised before the WAIT is 
terminated or before any other I/O 
conditions are raised unless an abnor- 
mal return is made from one of the 
on-units thus entered. The order in 
which I/O ON conditions are raised for 
an event is implementation- defined. 
The raising of ON conditions for one 
event implies nothing about the com- 



WAITCEP2) ; 



END; 

The CALL statement, when executed, 
attaches a task whose completion sta- 
tus is associated with the event nape 
EP2. When the WAIT statement is 
encountered, the execution of the 
attached task is suspended until the 
value of COMPLETION CCP2) is 'l'B, 
i.e., until the attached task is com- 
pleted. 

The WRITE Statemen t 

Function: 

The WRITE statement transfers a record 
from a variable in internal storage to a 
RECORD OUTPUT or DIRECT RECORD UPDATE file. 

General format: 

WRITE opt ion- list. ; 

Following is the format of "option 
list": 

FILE (filename) FROM (variable) 
[KEYFROM ( sea lar- expression) ] 
[EVENT (event-scalar- variable) ] 

General rules: 

1. The options may appear in any order. 
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2. The FILE (filename) option, which must 
appear, specifies the file in which 
the record is to be written. If the 
file is not open in the current task, 
it is opened implicitly in this task. 

3. The FROM (variable) option specifies an 
unsubscripted level 1 variable which 
is to be written. 



variable will be made active and given 
the value ' O'B until the execution is 
complete, when it will be given the 
value ' l'B. The execution of a WRITE 
statement with an EVENT option cannot 
be considered complete until a WAIT 
statement naming that event has been 
executed. 



4. The expression in the KEYFROM option 
is converted to character string and 
associated with the record as its key. 

5. The EVENT (event variable) option 
allows processing to continue while 
the record is being written. It may 
not be specified for SEQUENTIAL BUF- 
FERED files. If the EVENT (event 
variable) option is given, the event 



Example: 

WRITE FILE (BETA) FROM (UPDATE) 
KEYFROM (ONKEY) ; 

Specifies that the record UPDATE is 
written as the next record in the data 
set associated with file BETA. The 
key identifying the record in the data 
set is taken from UKEY. 
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CHAPTER 9: COMPILE-TIME FACILITIES 



PL/I allows a programmer to alter the 
text of a source program at compile time. 
This can be done in the following ways: 

1. Modification of a source program for 
the purpose of changing variable names 
or for notational convenience. 

2. Conditional compilation of sections of 
the source program. In other words, 
the user can dictate which sections of 
his program are to be compiled. 

3. Incorporation of strings of text into 
the source program, where the strings 
of text reside in a user or system 
library. 



These operations are performed by 
preprocessor stage of the compiler. 



the 



THE PREPROCESSOR SCAN 



The preprocessor begins to scan the 
characters of the source text in a sequen- 
tial manner. If the source text does not 
contain a compile-time statement, the pre- 
processor places the scanned characters 
into the program text in the same order and 
form in which they were encountered. 



When a compile-time statement is encoun- 
tered during the scan, it is executed. 
This execution may cause the sequential 
scanning and olacing of characters to be 
modified in either of the following ways: 

1. The executed comnile-time statement 
may cause the preprocessor to continue 
the scan from a different point in the 
source text. 



THE PREPROCESSOR 



PREPROCESSOR INPUT AND OUTPUT 



The preprocessor inte 
statements and acts upon 
accordingly. Input to 
consists of a character 
source te xt, which cons 
and constants; between a 
there must be at least 
ter, comment, or compi 
Compile-time statements 
leading percent sign ( 
upon being encountered 
One or more blanks a 
separate the percent sig 
ment. Note that a per 
in a character string is 
be a character in that s 



rprets compile-time 
the source program 
the preprocessor 
string, called the 
ists of identifiers 
ny two of these, 
one blank, delimi- 
le-time statement, 
are identified by a 
%) and are executed 
by the processor, 
nd/or comments may 
n from the state- 
cent sign appearing 
considered only to 
tring. 



Compile-time activity may also be speci- 
fied by statements in a compile-time proce- 
dure. In this case, only the PROCEDURE and 
END statements require, or can have, per- 
cent signs. A compile-time procedure is 
invoked by a compile-time function ref- 
erence. 

Output from the preprocessor consists of 
a newly created character string, called 
the program text, which contains the modi- 
fied source program text, and which serves 
as input to the compiler. This new text 
has been modified by the preprocessor 
according to the compile-time statements 
encountered in the source text. 



2. The executed comnile-time statement 
may specify to the preprocessor that 
upon the subsequent encounter of a 
specified identifier within the source 
program, that identifier itself is not 
to be inserted into the program text 
being generated; rather, the currently 
assigned val\ie of the identifier (that 
is, the value assigned by a compile- 
time statement executed prior to this 
encounter) is to be placed into the 
program text (unless this value or 
part of it, in turn, can be replaced 
— see "Rescanning and Replacement" 
below). Note that compile-time 
statements themselves are never 
inserted in the program text; rather, 
a blank is inserted in place of such 
compile-time statements. 

The preprocessor scan is terminated when 
an attempt is made to scan beyond the last 
character in the source text. The restat- 
ing program text is a string representing 
the PL/I program to be compiled. 



Rescanning and Rep lac ement 



Replacement of a variable or invocation 
of a compile-time procedure (and subsequent 
replacement of the function reference) can- 
not take place until the variable or the 
entry name has bet;n activated , either by a 
reference in a %ACTIVATE or %DECLARE state- 
ment. 
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When an activated variable or an acti- 
vated procedure name is encountered in the 
source text, its value becomes a candidate 
for replacement. This value cannot contain 
percent signs, unmatched quotation marks, 
or unmatched comment delimiters. The value 
is then rescanned from left to right to 
determine whether or not it, or any part of 
it, can be replaced, at the second replace- 
ment level, by another value. If it cannot 
be replaced, it is inserted into the pro- 
gram text; if it is replaced, the new 
value, in turn, is rescanned, etc. Thus, 
insertion of a value into program text 
takes place only after all possible 
replacements have been made (see Example 2 
below) . 

Examples : 

1. If the source text contained the fol- 
lowing statements : 

% DECLARE A CHARACTER, B FIXED; 
% A = ' B + C ' ; 
% B = 2; 
X = A; 

then the following would be generated 
in the program text: 



X = 



+ C 



2. 



In the above example, the first 
statement is a compile-time DECLARE 
statement that establishes A and B as 
compile-time variables with the indi- 
cated attributes, and also serves to 
activate these variables. The second 
statement is a compile-time assignment 
statement that assigns the character 
string ' B + C to A. The third 
statement is also a compile-time 
assignment statement, and assigns the 
value 2 to B. The fourth statement is 
a source program statement which 
assigns A to X. However, since A has 
been activated for replacement and has 
been assigned a value, namely, the 
string *B + C , the value of A is 
rescanned for possible further 
replacement action. This rescanning 
causes B to be replaced by the value 
2. However, since 2 is not a compile- 
time variable, it cannot be replaced, 
and the chain of replacements comes to 
an end. Thus, the source program 
statement X = A; becomes the program 
text statement X = 2 + C. Note 
that a blank is appended to each end 
of the replacement value when it is 
written into the program text. Also 
note that in the examples shown in 
this chapter all leading blanks of 
fixed-point values are not shown. 

The following example illustrates an 
error because a procedure name and its 



delimited argument list are not 
provided at the same replacement 
level: 

% DECLARE (A,B,C) CHARACTER, 
D ENTRY (CHARACTER) 
RETURNS (CHARACTER) ; 

% D: PROCEDURE (E) CHARACTER; 



% END; 
% A = 'D'; 
% B = ' X) ' ; 
% C = 'A(B' ; 

Y = C; 

In the first scan, the compile-time 
statements cause the following 
'replacement: 

Y = A(B; 

The second scan causes replacement of 
A, as follows: 

Y = D(B; 

In the third scan, since it is done 
from left to right, the character ' D' 
is encountered before the character 
'B'. Consequently, an attempt would 
be made to invoke the procedure before 
the argument list is complete, which 
would be in error. The complete, 
delimited argument list (X) , (as 
intended in this coding) would have to 
be supplied at the same (or an 
earlier) level of replacement as the 
entry name D. 

Example: Compile-Time Loop Expansion 

A programmer may wish, at object-time, 
to execute the following loop: 

DO I = 1 TO 10; 
Z(I) = X(I) + Y(I) ; 
END; 

The following program would accomplish 
the same thing, but without the execution- 
time requirements of incrementing and 
testing: 

% DECLARE I FIXED; 

% I = 1; 

% LAB:; 

Z(I) = X(I) + Y(I) ; 

% I = I + 1; 

% IF I<= 10 % THEN % GO TO LAB; 

% DEACTIVATE I; 

The precise effect of each of these 
statements is detailed below. 

The statement % 1=1 assigns the value 1 
to the compile-time variable I and speci- 
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fies that, unless the programmer indicates 
otherwise (note the later appearance of the 
% DEACTIVATE statement) , subsequent occur- 
rences of the identifier I in the source 
program will result in its replacement in 
the program text by the string '1', The % 
LAB: statement is a compile-time null 
statement that is used as the transfer 
target for the % GO TO statement that 
appears later. 

The string •z(I) = X(I) + Y(I);» is a 
source program statement,. Initially, the 
variable I was given the value 1; there- 
fore, the first time that this string is 
scanned, the string ' Z( 1 ) =X( 1 ) + 
Y( 1 );' will be inserted into the program 
text by the preprocessor. I is then incre- 
mented by 1 (56 I = 1+1;), after which the 
compile-time IF statement instructs the 
preprocessor to test the value of I. If I 
is not greater than 10, the scan is to 
resume at the compile-time statement 
labeled LAB; otherwise, the scan is to 
continue with the text immediately follow- 
ing the % GO TO statement. 



declaration of identifiers 
compile-time statements. 



is allowed in 
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not to be repl 
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The scope of a compile-time name encom- 
passes all text subsequently scanned except 
those preprocessor procedures that have 
redeclared that identifier. The scope of a 
preprocessor variable that has been 
declared in a preprocessor procedure is the 
entire procedure (there is no nesting of 
preprocessor procedures) . 



When a prepro 
given a value, t 
occurrences of the 
in text other tha 
during the time 
active. If the p 
inactive (or if i 
ment activity cann 
ponding identifier 
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n preprocessor 
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reprocessor va 
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, replace- 
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As a result of the above compile-time 
activity, the following PL/I statements are 
generated into the program text: 

Z( 1 ) = X( 1 ) + Y( 1 ); 
7, ( 2 ) = X ( 2 ) + Y ( 2 ) ; 



Z( 10 ) = X( 10 ) + Y( 10 ) ; 

The foregoing statements are the state- 
ments that will actually be compiled into 
executable object code. 



COMPILE-TIME VARIABLES 



A compile-time variable is an identifier 
that has been specified in a ^DECLARE 
statement with either the FIXED or CHARAC- 
TER attribute. No other attributes can be 
declared for a compile-time variable. 
Defaults are applied, however. A compile- 
time variable declared with the FIXED 
attribute is also given the attributes 
DECIMAL and an implementation-defined pre- 
cision; a CHARACTER compile-time variable 
is given the VARYING attribute with no 
maximum length. No contextual or implicit 



COMPILE-TIME EXPRESSIONS 



Compile-time expressions are written and 
evaluated in the same way as source program 
expressions, with the following exceptions: 

1. The operands of a compile-time expres- 
sion can consist only of compile-time 
variables, references to compile-time 
procedures, decimal integer constants, 
bit-string constants, character-string 
constants, and references to the 
built-in function SUBSTR. Repetition 
factors are not allowed with the 
string constants and the arguments of 
a reference to SUBSTR must be compile- 
time expressions. 

2. The exponentiation symbol (**) cannot 
be used. 

3. For arithmetic operations, only 
decimal integer arithmetic of 
implementation-defined precision is 
performed. Note that the properties 
of the division operator are affected. 
For example, the expression 3/5 evalu- 
ates to , rcLther than to 0.6. 

A character string in an expression 
being assigned to a compile-time variable 
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may include compile-time variables, ref- 
erences to compile-time procedures, con- 
stants, and operators; preprocessor state- 
ments cannot be included in such strings. 



COMPILE-TIME PROCEDURES 



A compile-time procedure is a procedure 
that can be invoked only at the prepro- 
cessor stage. Its syntax differs from 
other PL/I procedures mainly in that its 
PROCEDURE and END statements must each have 
a leading percent symbol. 

General format: 



The GO TO statement 

The IF statement 

The DO group 

The syntax of these statements, and of the 
DO group is described under "Compile-time 
Statements" in this chapter, however, with- 
in a compile-time procedure, these state- 
ments must be written without percent sym- 
bols. 

Names declared in a compile-time proce- 
dure are not known outside the procedure. 
Names declared in source text are known 
within the procedure unless they have been 
redeclared. 



% label : [label:] PROCEDURE 

[ (identifier!, identifier] . . . ) ] 
{CHARACTER! FIXED} ; 



[label:] RETURN ( preprocessor- expression) ; 



% [label:] END [label]; 

Each identifier in the procedure state- 
ment is a parameter of the procedure; each 
parameter must be explicitly declared as 
FIXED or CHARACTER. 

The label after the keyword END must be 
one of the labels of the procedure state- 
ment. 

The CHARACTER or FIXED attribute in the 
compile-time procedure statement specifies 
the attribute to which the returned value 
is to be converted. 

A compile-time procedure can be invoked 
only by a function reference. Recursive 
invocation of a compile-time procedure is 
not allowed, but the returned value, upon 
rescanning, can invoke the same procedure. 
Control cannot be transferred out of the 
procedure by a GO TO statement; consequent- 
ly a RETURN statement must be executed to 
return both control, and the returned 
value, to the point of invocation. 

The only statements and groups, besides 
one or more RETURN statements, that a 
compile-time procedure can contain are: 

The null statement 

The DECLARE statement 

The assignment statement 



SCANNING COMPILE-TIME PROCEDURES AND 
FUNCTION REFERENCES 



When the scan encounters a compile-time 
procedure, the procedure is skipped and 
scanning recommences after the END state- 
ment of the procedure. 

If the scan is to recognise an identifi- 
er, with any required argument list, as a 
compile-time function reference the iden- 
tifier must be declared in a compile-time 
DECLARE-statement as an entry name. The 
declaration of the entry name and the 
compile-time procedure must both be in 
source text; that is, any necessary 
INCLUDES must have been executed. The 
declaration, but not necessarily the proce- 
dure, must have been scanned. If the 
reference is not in a compile-time state- 
ment, the identifier must be activated; if 
it is not activated the identifier becomes 
part of the program text and the scan 
continues. 

The argument list in a compile-time 
function reference is delimited by a 
balanced pair of parentheses whose left 
parenthesis is adjacent to the entry name, 
or is separated from the entry name by 
blanks and comments only. Commas which are 
not within further balanced parentheses 
separate the arguments from each other. 



INVOCATION OF COMPILE-TIME PROCEDURES 



The number of arguments in a compile- 
time function reference must be the same as 
the number specified in the entry attribute 
for the function's entry name; furthermore, 
the number of parameters specified in the 
entry attribute must be the same as the 
number indicated in the corresponding 
procedure statement. 
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The attributes of those parameters spec- 
ified in the entry attribute must be the 
same as those declared for the correspond- 
ing parameters. For each parameter whose 
attributes are not specified in the entry 
attribute;, the corresponding argument must 
have attributes identical to those declared 
for the parameters. 

A compile-time function reference 
behaves differently when encountered in 
source t€»xt from: when it is encountered in 
a compile-time statement. In source text 
the arguments are pieces of source text and 
the result returned by the function becomes 
part of source text; in a compile-time 
statement the arguments are compile-time 
expressions and the function returns a 
value for use in a compile-time expression. 

In source text the arguments are delim- 
ited by the parentheses of the argument 
list, and by intervening commas in the text 
which are not themselves between balanced 
parentheses. The string of source text 
corresponding to each argument position is 
scanned and any necessary replacement is 
performed; the resulting sequence of char- 
acters is treated as an argument. If it is 
specified by an entry attribute, the argu- 
ment will be converted to FIXED, otherwise 
it is treated as a character string. The 
value returned by the function is either 
FIXED or CHARACTER. In the former case the 
value is converted to CHARACTER and insert- 
ed in source text. In the latter case the 
string returned is scanned, and any neces- 
sary replacement takes place, before it is 
inserted in source text. Dummy arguments 
are always created when a function is 
invoked from source text. 

In a compile-time statement the argu- 
ments of the function are compile time 
expressions; they are evaluated and any 
conversions specified by the entry attri- 
bute are performed before the function is 
invoked. Dummy arguments will be created 
where an argument is a constant, an expres- 
sion in parentheses or where the attribute 
of the argument differs from that specified 
for the corresponding parameter in an entry 
attribute. 



However, if the identifier SUDSTR has 
already been declared as a variable or an 
entry name, a reference to SUBSTR in a 
compile-time statement is taken as a ref- 
erence to the user-declared SUBSTR. When a 
programmer-written procedure named SUBSTR 
is in source text it is an error for the 
scan to encounter a reference to SUBSTR in 
a compile-time statement if no declaration 
for SUBSTR has been scanned. If the iden- 
tifier SUBSTR refers to the built-in func- 
tion, SUBSTR, it can be activated only by 
an ACTIVATE statement. 

The built-in function SUBSTR behaves the 
same as a user compile-time function when 
encountered in source text or in a compile- 
time statement. The first argument is, if 
necessary, converted to character; the 
second and third arguments are, if neces- 
sary, converted to decimal. The returned 
value is a character string. 



COMPILE-TIME STATEMENTS 



Note that wherever keywords are shown 
below, they may be abbreviated as shown in 
Appendix 4. Note also that a comment 
appearing within a compile-time statement 
is never written into the program text. 



THE ACTIVATE AND DEACTIVATE STATEMENTS 



Function: 

The appearance of an identifier in an 
ACTIVATE statement makes it eligible for 
replacement when certain conditions are met 
(see General Rules below) ; such an appear- 
ance is said to activate an identifier. 
The DEACTIVATE statement deactivates an 
identifier; that is, any subsequent appear- 
ance of such an identifier in the source 
program causes no replacement action 
(unless, of course, the identifier is again 
activated) ; the identifier remains 
unchanged. 

General format: 



THE COMPILE-TIME BUILT-IN FUNCTION SUBSTR 



The built-in function SUBSTR is the only 
built-in function that can be invoked dur- 
ing the preprocessor stage. It may be 
invoked from source text or from a compile- 
time statement. 

The identifier SUBSTR is recognized as 
the built-in function name when it is 
encountered in a compile-time statement. 



S [label:] [ ACT IV AT E| DEACTIVATE} iden- 
tifier [ ,, identifier] ...; 

General rules: 

1. Compile-time identifiers representing 
variables, procedure references, and 
the built-in function SUBSTR may be 
activated or deactivated. 

2. When an identifier is deactivated, its 
appearance in the source program does 
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not cause any replacement action; the 
identifier is placed unchanged into 
the program text. However, any value 
that the identifier may have had 
before it was deactivated remains in 
effect as far as compile-time state- 
ments are concerned; deactivating an 
identifier only nullifies its ability 
to effect replacement. 



THE ASSIGNMENT STATEMENT 



Function: 



The compile-time assignment statement is 

used to evaluate compile-time expressions 

and to assign the result to a compile-time 
variable. 



3. When an identifier is activated, the, 
following conditions must be met in 
order for replacement to occur: 



The identifier must not appear 
within a comment or a character 
string. 



The identifier must be immediately 
preceded and followed by a PL/I 
delimiter. 



If both conditions are met, the 
replacement value for the compile-time 
variable or procedure reference is 
converted to a character string and 
then placed into the program text 
(assuming that the rescan does not 
cause any further replacement) . A 
single blank is inserted immediately 
preceding and following the value. 



Note : The appearance of an identifier in a 
DECLARE statement serves to activate that 
identifier initially. Therefore, an iden- 
tifier need be activated by an ACTIVATE 
statement only if it has been explicitly 
deactivated. 



General format: 

[label:] ... compile-time- variable = 
compile- time- express ion; 



General rules: 

1. For arithmetic operations, 
mal integer arithmetic of 
(p,0) is performed 
implementation-defined) ; tha 
operand is converted to 
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before the operation is perf 
the decimal fixed-point resu 
verted to precision (p,0) 
character string being conve 
arithmetic value must be in 
of an optionally signed dec 
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The conversion of a fixed-point deci- 
mal quantity to a character-string 
always results in a string of length 
p+3. 

The value assigned to a compile-time 
character-string variable may include 
percent signs, unmatched quotation 
marks, and unmatched comment delimi- 
ters. 
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Example: 

If the source text contains the fol- 
lowing statements : 



THE DECLARE STATEMENT 



% DECLARE I FIXED, T CHARACTER; 

% DEACTIVATE I; 

% I = 15; 

% T = 'A(I) '; 
S = I*T*3; 

% I = I + 5; 

% ACTIVATE I; 

% DEACTIVATE T; 
R = I*T*2; 



then the program text generated by the 
above would be: 



Function: 

The DECLARE statement establishes an 
identifier as a compile-time variable or a 
compile-time procedure name. The appear- 
ance of an identifier in a compile-time 
DECLARE statement activates that identifi- 
er; that is, it indicates to the prepro- 
cessor that this identifier may cause 
replacement action in the source program. 

General format: 



I* A(I) *3; 
20 *T*2; 



% [label:!.. 



DECLARE identifier 
attribute-list [, identifier 
attribute-list] . . . ; 
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where "attribute list" is defined as: 



Syntax rule: 



CHARACTER | FIXED | ENTRY [ ( [CHARACTER | FIXED] 
[ , [CHARACTER | FIXED] ]...)] 
RETURNS (CHARACTER | FIXED) 



The i represents a compile-time varia- 
ble, and ml, m2, and m3 are compile-time 
expressions. 



Syntax rules: 

1. The attributes may be factored as in 
PL/I source program DECLARE state- 
ments . 



2. Although the DECLARE statement may be 
labeled, all such labels are ignored. 

General rules: 

1. A length ccinnot be specified with the 
CHARACTER attribute. If CHARACTER is 
specified, it is assumed that the 
associated identifier represents a 
varying character string that has no 
maximum length. 

2. A compile-time declaration is not 
known until it has been scanned by the 
preprocessor. Any reference to a 
compile-time variable or compile-time 
procedure name encountered in a 
compile-time statement before the 
variable or procedure name has been 
declared is in error. 

3. The scope of a compile-time variable 
name, compile-time procedure name, or 
a label of a compile-time statement is 
the entire text scanned by the proc- 
essor, not including any compile-time 
procedures that redeclare the iden- 
tifier. The scope of a name declared 
in a compile-time procedure is limited 
to that procedure. 

H. Multiple declaration of compile-time 
variables or labels are not allowed. 

5. A compile-time DECLARE statement is 
executed only the first time it is 
encountered; any subsequent scanning 
through the* statement has no effect. 



THE DO STATEMENT 



General format: 
[label:] ... DO[i 



ml |T0 m2 [BY m3 
m3 [TO m2] 



']" 



General rules: 

Transfer may not be made into an 
iterative DO group except via a return 
from a compile-time procedure invoked 
from within the group. 



The text of a DO group may consist of 
both compile-time statements and 
source program statements. The source 
program statements are not executed; 
they are scanned for possible replace- 
ment activity. Thus, the example 
below results in the same expansion 
generated by the example called 
"Compile-Time Loop Expansion" in the 
section "Rescanning and Replacement." 



% DECLARE I FIXED; 
% DO I = 1 TO 10; 
Z(I) = X(I) + Y(I) ; 
% END; 
% DEACTIVATE I; 



3. The expansion of the DO is the same as 
for source program DO groups, with the 
PL/I source orogram statements 
replaced by the equivalent compile- 
time statements. 



[label:] END [label]; 



THE GO TO STATEMENT 

Function: 

The compile-time GO TO statement causes 
the processor to resume its scan at the 
specified label. 

General format: 

% [label:] ... [GOTO|GOTO> label; 

General rule: 

1. The label that determines the point at 
which the scan will resume must be the 
label of a compile-time statement. 

2. A compile-time GO TO statement can be 
used to transfer control from included 
text to a compile-time statement in 
the containing text, but the reverse 
is in error.. 
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THE IF STATEMENT 



Function: 



tify a data set. This data set may 
contain source program text and/or 
compile-time statements. 



compile- time 

group-2, if 

Otherwise, 

group-2, if 



The compile-time IF statement controls 
the flow of the processor's scan according 
to the value of a compile-time expression. 

General format : 

% [label:] .... IF compile-time-expression 
% THEN compile-time-group-1 
[% ELSE compile-time-group-2] 

Syntax rule: 

A compile-time group is any single 
executable compile-time statement or a 
compile-time DO group (see below). 

General rules: 

1. The compile-time expression is evalu- 
ated and converted to a bit string. 
(If the conversion cannot be made, it 
is an error. ) If any bit in the 
string has the value 1, 
group-1 is executed and 
present, is skipped. 
group-1 is skipped and 
present, is executed. In either case, 
the scan resumes immediately following 
the IF statement, unless, of course, a 
compile-time GO TO statement in one of 
the groups has caused the processor to 
resume its scan elsewhere. 

2. Compile-time IF statements may be 
nested. See General Rule 2 of "The IF 
Statement," Chapter 8. 



THE INCLUDE STATEMENT 



Function: 

The INCLUDE statement is used to incor- 
porate strings of external text into the 
program text being formed. 

General format: 

%[ label:] ... INCLUDE text- identification 
[ , text-identification] . . . ; 

where "text-identification" is of the form: 

!identifier-l t (identifier- 2)] ) 
[idemtif ier-1] (identif ier-2) ) 
General rules: 

1. Each text identification is used in an 
implementation-defined manner to iden- 



The incorporated data sets are 
scanned, in sequence, in the same 
manner as the source text, i.e., 
replacements are made and compile-time 
statements are executed. Thus, they 
may contribute to the final program 
text. Note that the included text 
does not replace the INCLUDE state- 
ment, which is executed again if it is 
reencountered in the scan. 



A transfer of control from included 
text to a statement in the containing 
text is valid, but the reverse is in 
error. (Note that "transfer of 
control" should be taken in the sense 
of a GO TO statement only; a "transfer 
of control" in the sense of invoking a 
compile-time procedure is always per- 
missible. ) 



U. Compile-time IF statements, DO groups, 
and procedures must each be complete 
within a single included data set. 



Examples: 

1. Assume that the data set named PAYRL 
contains the following structure dec- 
laration: 



DECLARE 1 PAYROLL, 

2 NAME, 

3 LAST CHARACTER (30) VARYING, 
3 FIRST CHARACTER (15) VARYING, 
3 MIDDLE CHARACTER (3) VARYING, 

2 MAN_NO FIXED DECIMAL (6,0), 

2 HOURS, 

3 REGLR FIXED DECIMAL (8,2), 
3 OVRTIM FIXED DECIMAL (8,2), 

2 RATE, 

3 REGLAR FIXED DECIMAL (8,2), 
3 OVERTIME FIXED DECIMAL (8,2); 



then the following compile-time program 



% DECLARE PAYROLL CHARACTER; 

% PAYROLL = ' CUM_PAY"; 

% INCLUDE PAYRL; 

% DEACTIVATE PAYROLL; 

% INCLUDE PAYRL; 



would generate two identical structure des- 
criptions in the program text, the only 
difference being their names, CUM_PAY and 
PAYROLL. 
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If the source text contained the fol- 
lowing: 

% DECLARE (FILENAMEl , FILENAME2) 
CHARACTER ; 

% FILENAME! = 'MASTER"; 
% FILENAME2 = 'NEWFILE'; 
% INCLUDE DECLARATIONS; 

and if the data set named DECLARATIONS 
contained 



Note that in this way a central 
library of file declarations can be 
used, with each user supplying his own 
names for the files beina declared. 



THE NULL STATEMENT 



DECLARE 

FILENAMEl FILE RECORD INPUT 

DIRECT KEYED, 
FILENAME2 FILE RECORD OUTPUT 

DIRECT KEYED; 

then the program text would contain 
the following statement: 

DECLARE 

MASTER FILE RECORD INPUT DIRECT 

KEYED, 
NEWFILE FILE RECORD OUTPUT DIRECT 

KEYED;; 



Function: 



The compile-time null statement is used 
to insert compile-time labels into the 
text; these labels are transfer targets for 
compile-time GO TO statements. 



General format: 
% [label:] ...; 
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APPENDIX 1: BUILT-IN FUNCTIONS AND PSEUDO- VARIABLES 



All of the built-in functions and 
pseudo-variables that are available to the 
PL/I programmer are given in this appendix, 
and are presented in alphabetical order 
under their respective headings. The gen- 
eral organization of the appendix is as 
follows : 



1. Computational Built-in Functions 

a. String- handling built-in functions 

b. Arithmetic built-in functions 

c. Mathematical built-in functions 

d. Array manipulation built-in func- 
tions 



Mathematical: 



AT AN 


LOG 10 


AT AND 


LOG 2 


ATANH 


SIN 


COS 


SIND 


COSD 


SINH 


COSH 


SQRT 


ERF 


TAN 


ERFC 


TAND 


EXP 


TANH 


LOG 





Array Manipulation : 



2. Condition Built-in Functions 



3. Based Storage Built-in Functions 



ALL 
ANY 
DIM 
HBOUND 



LBOUND 
POLY 
PROD 
SUM 



U. Multitasking Built-in Functions 



5. Miscellaneous Built-in Functions 



6. Pseudo-Variables 



The condition built-in functions allow 
the PL/I programmer to investigate inter- 
rupts arising from enabled ON- conditions. 
The condition built-in functions are: 



DATAFIELD 
ONCHAR 
ONCODE 
ONCOUNT 



ONFILE 
ONKEY 
ONLOC 
ONSOURCE 



The com putational built-in functions 
provide string handling, arithmetic opera- 
tions (addition, division, 
etc. ) , mathematical operations (trig- 
onometric functions, sguare root, etc.), 
and array manipulation. The computational 
built-in functions are: 

String Handling : 

BIT LOW 

BOOL REPEAT 

CHAR STRING 

HIGH SUBSTP 

INDEX UNSPEC 
LENGTH 



The based storage built-in functions are 
designed to facilitate list processing and 
the use of based storage. They mainly 
return special values to locator and area 
variables. The based storage built-in 
functions are: 



ADDR 
EMPTY 



NULL 
NULLO 



OFFSET 
POINTER 



The multitasking built-in functions 
allow the programmer to investigate the 
current state of a task or asynchronous 



input/output operation, or 
priority of a task. The 
built-in functions are: 



the current 
multitasking 



Arithmetic : 

ABS 

ADD 

BINARY 

CEIL 

COMPLEX 

CONJG 

DECIMAL 

DIVIDE 

FIXED 

FLOAT 

FLOOR 



I MAG 

MAX 

MIN 

MOD 

MULTIPLY 

PRECISION 

REAL 

ROUND 

SIGN 

TRUNC 



COMPLETION 

PRIORITY 

STATUS 

The miscellaneous built-in functions 
perform various duties; for example, one 
function provides the current date, another 
provides a count of data items transmitted 
during a STREAM input/output operation,, 
while another provides an indication of 
whether or not a controlled variable is in 
an allocated state. The miscellaneous 
built-in functions are: 
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ALLOCATION 


LINENO 


COUNT 


TIME 


DATE 




Each of the 


pseudo- variables 



is des- 
cribed briefly. A more detailed descrip- 
tion can be found in the discussion of the 
corresponding built-in function. The 
pseudo- variables are: 



COMPLETION 

COMPLEX 

IMAG 

ONCHAR 

ONSOURCE 



PRIORITY 

REAL 

STATUS 

SUBSTR 

UNSPEC 



COMPUTATIONAL BUILT-IN FUNCTIONS 



STRING HANDLING BUILT-IN FUNCTIONS 



The functions described in this section 
may be used for manipulating strings. 
Unless it is specifically stated otherwise, 
any argument can be a scalar or aggregate 
expression (see "Built-in Functions with 
Aggregate Arguments," in Chapter 3). An 
argument that is specified as "string" can 
be an expression of any data type, but if 
it is arithmetic, it is converted to bit- 
string (if binary base) or character-string 
(if decimal base) before the function is 
invoked. 

Conversions are made according to the 
rules for data conversion. 



BOOL String Built-in Function 



Definition; BOOL produces a bit string 
whose bit representation is a result of a 
given boolean operation on two given bit 
strings. 

Reference: BOOL (x,y,w) 

Arguments : Arguments "x" and "y" are the 
two bit strings upon which the boolean 
operation specified by "w" is to be per- 
formed. If "x" and "y" are not bit 
strings, they are converted to bit strings. 
If "x" and "y" differ in length, the 
shorter string is extended with zeros on 
the right to match the length of the longer 
string. 

Argument "w" represents the boolean 
operation. It is a bit string of length 4 
and is defined as n ± n 2 n 3 n u , where each n 
is either or 1. There are 16 possible 
bit combinations and thus 16 possible boo- 
lean operations. If necessary, "w" is 
converted to a bit string (of length 4) 
before the function is invoked, if neces- 
sary. 
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BIT String Bui lt-in Function 



Defin ition : BIT converts a given value to 
a bit string and returns the result to the 
point of invocation. This function allows 
the programmer to control the size of the 
result of a bit-string conversion. 

Reference: BIT (value [, length]) 

Arguments: The argument, "value," is an 
expression representing the quantity to be 
converted to a bit string. The argument, 
"length," when specified, is an expression 
whose value gives the length of the result. 
If "length" is not specified, it is 
determined according to the type conversion 
rules. 

Result: The value returned by this func- 
tion is "value" converted to a bit string. 
The length of this bit string is determined 
by the integral value of "length," as 
described above- 
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CHAR String Built-in Function 



Definition: CHAR converts a given value to 
a character string and returns the result 
to the point of invocation. This function 
allows the programmer to control the size 
of the result of a character-string conver- 
sion. 
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Reference: CHAR (value [, length]) 

Arguments: The argument, "value," is an 
expression representing the quantity to be 
converted to a character string. The argu- 
ment, "length," when specified, is an 
expression whose integral value gives the 
length of the result. If "length" is not 
specified, it is determined according to 
the type conversion rules. 

Result : The value returned by this func- 
tion is "value" converted to a character 
string. The length of this character 
string is determined by the integral value 
of "length," as described above. 



Result: The value returned by this func- 
tion is a binary integer of default preci- 
sion. This binary integer is either: 

1. The location in "string" at which 
"config" has been found. If more than 
one "config" exists in "string," the 
location of the first one found (in a 
left-to-right sense) will be returned. 

2. The value 0, if "config" does not 
exist within "string" or if either of 
the arguments has a length of zero. 



LENGTH String Built-in Function 



HIGH String Built-in Function 



Definition : HIGH forms a character string 
of a given length from the highest charac- 
ter in the collating sequence; that is, 
each character in the constructed string is 
the highest character in the collating 
sequence. 

Reference: HIGH (length) 

Argument : The argument, "length," is an 
expression whose integral value specifies 
the length of the string that is to be 
formed. 

Result: The value returned by this func- 
tion is a character string whose length is 
determined by the integral value of 
"length"; each character in the string is 
the highest character in the collating 
sequence. 



INDEX S tring Built-in Function 



Definit i on: INDEX searches a specified 
string for a specified bit or character 
string configuration. If the configuration 
is found, the starting location of that 
configuration within the string is returned 
to the point of invocation. 

Refere nce: INDEX (string, config) 

Argumen ts: Two arguments must, be speci- 
fied. The first argument, "string," rep- 
resents the string to be searched; the 
second argument, "config," represents the 
bit or character string configuration for 
which "string" is to be searched. If 
neither argument is a bit string, or if 
only one argument is a bit string, both 
arguments are converted to character 
strings. If both arguments are bit-string, 
no conversion is performed. 



Definition: LENGTH finds the string length 
of a given value and returns it to the 
point of invocation. 

Reference: LENGTH (string) 

Argument: The argument, "string," rep- 
resents a character string or a bit string 
whose length is to be found. The argument 
need not represent a string; if it does 
not, it is converted before the function is 
invoked to a character string (if the 
argument is DECIMAL) or a bit string (if 
the argument is BINARY) . 

Result: The value returned by this func- 
tion is a fixed binary integer of default 
precision giving the current length of 
"string." If "string" is an array expres- 
sion, an array of identical bounds is 
returned. 

Example: If XYZ is a varying- length char- 
acter string whose maximum length is 30, 
but whose current length is 25, then the 
statement : 

I = LENGTH (SUBSTR(XYZ, 4)) ; 

will assign a binary value of 22 to I. 



LOW Strinq Built-in Function 



Definition: LOW forms a character string 
of specified length from the lowest charac- 
ter in the collating sequence; i.e., each 
character of the former! string will be the 
lowest character in the collating sequence. 

Reference: LOW ( length) 

Argument : The argument, "length," is an 
expression whose integral value specifies 
the length of the string being formed. 
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Result: The value returned by this func- SUBSTR String Built-in Function 

tion is a character string whose length is 

determined by the integral value of 

"length"; each character in the string is Definition: SUBSTR extracts a substring of 

the lowest character in the collating user-defined length from a given string and 

sequence. returns the substring to the point of 

invocation. (SUBSTR can also be used as a 

pseudo-variable. ) 



REPEAT Stri ng Built-in Function 



Reference: SUBSTR (string, i [, j] ) 



Definition : REPEAT takes a given string 
value and forms a new string consisting of 
the given string value concatenated with 
itself a specified number of times. 



Reference: REPEAT (string, factor) 

Argumen t s: The argument "string" rep- 
resents the string from which the new 
string will be formed. If this argument is 
not a string, it will be converted to a 
string. 

The argument "factor" is an expression 
whose integral value specifies the number 
of times that "string" is to be concatenat- 
ed with itself; "factor" can be signed. 

Result: The value returned by this func- 
tion is "string" concatenated with itself 
"factor" times. In other words, the 
returned value will be a string containing 
(factor+1) occurrences of the value 
"string." If "factor" is less than or 
equal to zero, the returned value is ident- 
ical to the argument (i.e., the converted 
argument, if the original argument was not 
a string) . 



STRIN G Stri ng Built-in Function 



Defini tion: STRING concatenates all the 
elements in the result of an expression 
into a single string element. 

Referen c e: STRING (x) 

Argument s : The argument, "x," is an ele- 
ment, array, or structure expression, whose 
result is composed either entirely of char- 
acter strings and/or decimal numeric char- 
acter data, or entirely of bit strings 
and/or binary numeric character data. 

Result: The value returned by this func- 
tion is an element bit string or character 
string, the concatenation of all the ele- 
ments in "x„ " If "x" contains one or more 
varying strings, the result is a varying 
string. 



Arguments : The argument "string" rep- 
resents the string from which a substring 
will be extracted. If this argument is not 
a string, it will be converted to a string. 
Argument "1" represents the starting point 
of the substring and "j" represents the 
length of the substring. Arguments "i" and 
"j" must be integers or expressions that 
can be converted to integers. 



Assuming that the length of "string" is 
k, arguments "i" and "j" must satisfy the 
following conditions: 



1. 



2. 



3. 



j must be less than or equal to k 
greater than or equal to 0. 



and 



i must be less than or equal to k and 
greater than or equal to 1. 



The value of i+j-1 must be 
or equal to k. 



less than 



Thus, the substring, as specified by "i" 
and "j" must lie within "string." 

If "j" is not specified, it is assumed 
to be equal to the value of k-i+1. In 
other words, it is assumed to be the length 
of the remainder of "string," beginning at 
the ith position in "string." 

When these conditions are not satisfied, 
the SUBSTR reference causes the STRINGRANGE 
interrupt to be raised, if it is enabled. 



Result: The value returned by this func- 
tion is a varying- length string whose cur- 
rent length is defined as follows: 

1. If j=0, the returned value is the null 
string. 

2. If j is greater than 0, the returned 
value is that substring beginning at 
the ith character or bit of the first 
argument and extending j characters or 
bits. 

3. If j is not specified, the returned 
value is that substring beginning at 
the ith character or bit and extending 
to the end of "string." 
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UNSPEC String Built-i n Functio n 



ABS Arithmetic Built-in Function 



Definit ion: UNSPEC returns a bit string Definition: ABS finds the absolute value 

of a given quantity and returns it to the 



that is the internal coded representation 
of a given value. (UNSPEC can also be used 
as a pseudo-variable.) 

Refere nce: UNSPEC (x) 

Argument: The argument, "x," may be an 
arithmetic, string, locator, or area 
expression, or an area variable, whose 
internal coded representation is to be 
found. 

Result: The value returned by this func- 
tion is the internal coded representation 
of "x" and is implementation defined. This 
representation is in bit-string form. The 
length of this string depends upon the 
attributes of "x". 



ARITHMETIC BUILT-IN FUNCTIONS 



point of invocation. 

Reference: ABS (x) 

Argument : The quantity whose absolute 
value is to be found is given by "x. " 

Result: The value returnee"! by this func- 
tion is the absolute value of "x. " If "x" 
is real, the result is the positive value 



of 



if 



is complex, the result is 



the positive square root of the sum of the 
squares of the real and imaginary parts of 
"x." The mode of the result is real, while 
the base, scale, and precision are the same 
as those of "x," with one exception: if "x" 
is a complex fixed-point value of precision 
(p,q) , the precision of the result is: 

(MIN(N,p+l) ,q) 



All values returned by arithmetic built- 
in functions are in coded arithmetic form. 
The arguments of these functions should 
also be in that form. If an argument is 
not coded arithmetic, then, before the 
function is invoked, it is converted to 
coded arithmetic according to the rules for 
data conversion. Note, therefore, that in 
the function descriptions below, a 
reference to an argument always means the 
converted argument, if conversion was nec- 
essary. 

In some function descriptions, the 
phrase "converted to the highest 
characteristics" is used; this means that 
the rules for mixed characteristics are 
followed. See "Mixed Characteristics", 
Chapter 3. 

In general, an argument of an arithmetic 
built-in function may be a scalar or aggre- 
gate expression (see "Built-in Functions 
with Aggregate Arguments," in Chapter 3). 

Unless it is specifically stated other- 
wise: 

1. The mode of an argument may be real or 
complex. 

2. The base, scale, mode, and precision 
of the returned value are determined 
according to the rules for the conver- 
sion of expression operands. 

In many of these built-in function des- 
criptions, the symbol N is used. This 
symbol represents the maximum precision 
permitted by an implementation for the 
given base and scale. 



ADD Arithmetic Built-in Function 



Definition : ADD finds the sum of two given 
values and returns it to the point of 
invocation. This function allows the pro- 
grammer to control the precision of the 
result of an add operation. 

Reference: ADD (x,y,p[,q]) 



Arguments: Arguments "x" and "y" repr 
the values to be added. Arguments "p" 
"q" must be decimal integer constants 
ifying the precision of the result; "q 
be signed. If the scale of the resu 
fixed-point, both 
specified; if the 
floating-point, only 



p" and "q" mus 
scale of the resu 



In either case, 



'p" must be speci 
must not exceed N. 



esent 
and 
spec- 
" may 
It is 
t be 
It is 
f ied. 



Result: The value returned by this func- 
tion is the sum of "x" and "y. " The 
precision of the result is determined by 
"p" and "q"; this precision is maintained 
throughout the execution of the function. 



BINARY Arithmetic Built-in Function 



Definition: BINARY converts a given value 
to binary base and returns the converted 
value to the point of invocation. This 
function allows the programmer to control 
the precision of the result of a binary 
conversion. 

Reference: BINARY (x[ ,p[ ,q] ] ) 



15! 



Argument s ; The first argument, "x r " rep- 
resents the value to be converted to binary 
base. Arguments "p" and "q, " when speci- 
fied, must be decimal integer constants 
giving the precision of the binary result; 
"q" may be signed. The precision of a 
fixed-point result is (p#q) ; the precision 
of a floating-point result is (p) . If both 
"p" and "q" are omitted, the precision of 
the result is determined according to the 
standard rules for data conversion. Note 
that "q" must be omitted for floating-point 
arguments. 



CONJG Arithmetic Built-in Function 



Definition: CONJG finds the conjugate of a 
complex value and returns it to the point 
of invocation. (The conjugate of a complex 
number is the complex number with the sign 
of the imaginary part reversed.) 

Reference: CONJG (x) 

Argument : The argument, "x," is the value 
whose conjugate is to be found; it must be 
complex. 



Result: The value returned by this func- 
tion is the binary equivalent of "x." The 
scale and mode of this value are the same 
as those of "x. " The precision is given by 
"p" and "q." 



Result: The value returned by 
is the conjugate of "x. 



this func- 
' The base, 



tion 

scale, mode, and precision of the conjugate 

are the same as those of the argument. 



CEIL Arithmetic Built-in Function 



DECIMAL Arithmetic Built-in Function 



Definition : CEIL determines the smallest 
integer that is greater than or equal to a 
given real value and returns that integer 
to the point of invocation. 

Reference: CEIL (x) 



Argument : The argument, 
complex. 



'x, " must not be 



Result: The value returned by this func- 
tion is the smallest integer that is great- 
er than or equal to "x. " The base, scale, 
mode, and precision are the same as those 
of "x," with one exception: if "x" is a 
fixed-point value of precision (p,q), the 
precision of the result is defined as: 

(MIN(N,MAX(p-q+l,l)),0) 



COMPLEX Arithmetic Built-in Function 



Definition : COMPLEX forms a complex number 
from two given real values and returns it 
to the point of invocation. (COMPLEX can 
also be used as a pseudo-variable. ) 

Referen ce: COMPLEX (x,y) 



Definition: DECIMAL converts a given value 
to decimal base and returns the converted 
value to the point of invocation. This 
function allows the programmer to control 
the precision of the result of a decimal 
conversion. 

Reference: DECIMAL (x[,p[,q]]) 

Arguments : The first argument, "x, " rep- 
resents the value to be converted to deci- 
mal base. Arguments "p" and "q, " when 
specified, must be decimal integer con- 
stants giving the precision of the decimal 
result; "q" may be signed. The precision 
of a fixed-point result is (p f q) ; the 
precision of a floating-point result is 
(p) . If both "p" and "q" are omitted, 
however, the precision of the result is 
determined according to the standard rules 
for data conversion. Note that "g" must be 
omitted for floating-point arguments. 

Result: The value returned by this func- 
tion is the decimal equivalent of the 
argument "x." The scale and mode of this 
value are the same as argument "x" ; its 
precision is given by "p" and "q. " 



DIVIDE Arithmetic Built-in Function 



Arguments: Arguments "x" and "y" must both 
be real; "x" represents the real part of 
the complex number to be formed and "y" 
represents the imaginary part. 

Result : The value returned by this func- 
tion is the complex number that has been 
formed from "x" and "y." 



Definition: DIVIDE divides a given value 
by another given value and returns the 
quotient to the point of invocation. This 
function allows the programmer to control 
the precision of the result of a divide 
operation. 

Reference: DIVIDE (x,y,p[,q]) 
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Arguments: The argument, "x," is the divi- 
dend and argument "y" is the divisor. 
Arguments "p" and "q" ("q" is optional and 
may be signed) must be decimal integer 
constants specifying the precision of the 
result. If the result is a fixed-point 
value, "p" and "q" must both be specified; 
if the result is a floating-point value, 
only "p n must be specified. In either 
case, "p" must not exceed N. 

Result : The value returned by this func- 
tion is the quotient resulting from the 
division of "x" by "y. " The precision of 
the result is determined by "p" and "q n as 
described above; this precision is main- 
tained throughout the execution of the 
function. 



of the result will be floating-point 
default precision for the base of "x." 

Result: The value returned by this func- 
tion is the floating-point equivalent of 
"x"; its precision is "p." 



FLOOR Arithmetic Built-in Function 



Definition: FLOOR determines the largest 
integer that does not exceed a given value 
and returns that integer to the point of 
invocation. 

Reference: FLOOR (x) 



FIXED Arithmetic Built-in Function 



Definition: FIXED converts a given value 
to fixed-point scale and returns the con- 
verted value to the point of invocation. 
This function allows the programmer to 
control the precision of the result of a 
fixed-point conversion. 

Reference: FIXED (x[,p[,q]]) 



Argument : 
complex. 



The argument, "x, " must not be 



Result: The value returned by this func- 
tion is the largest integer that does not 
exceed "x." The base, scale, mode, and 
precision of this value are the same as 
those of "x," with one exception: if "x" is 
a fixed-point value of precision (p,q) , the 
precision of the result is: 

(MIN(N,MAX(p-q+l,D) ,0) 



Argument : The first argument, "x," rep- 
resents the value to be converted to fixed- 
point scale. Arguments "p" and "q, " when 
specified, must be decimal integer 
constants ("q" can be signed) giving the 
precision of the result, (p,q) . If "q" is 



omitted, zero is assumed. If both 



and 



"q" are omitted, precision of the result 
will be default fixed-point precision for 
the base of "x. " 



IMAG Arithmetic Built-in Function 



Definition: IMAG extracts the imaginary 
part of a given complex number and returns 
it to the point of invocation. (IMAG can 
also be used as a pseudo- variable. ) 

Reference: IMAG (x) 



Result : The value returned by this func- 
tion is the fixed-point equivalent of the 
argument "x"; its precision is (p,q). 



Argument : The argument, "x," is the com- 
plex value whose imaginary part is to be 
extracted. 



FLOAT Arithmetic Built-in Function 



Definition: FLOAT converts a given value 
to floating-point scale and returns the 
converted value to the point of invocation. 
This function allows the programmer to 
control the precision of the result of a 
floating-point conversion. 

Reference: FLOAT (x[,p]) 

Arguments : The first arguments "x," rep- 
resents the value to be converted to 
floating-point scale. The second argument, 
"p," when specified, must be a decimal 
integer constant giving the precision of 
the result. If "p" is omitted, precision 



Result: The value returned by this func- 
tion is the imaginary part of "x." The 
base, scale, and precision of the imaginary 
part are unchanged. The mode of the 
returned value is real. 



MAX Arithmetic Built-in Function 



Definition: MAX extracts 



the 



highest- 
valued expression from a given set of two 
or more expressions and returns that value 
to the point of invocation. 

Reference: MAX (x 1 ,x 2 |...,x n ) 

Arguments : Two or more arguments must be 
given. The arguments must not be complex. 
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Result: The value returned by MAX is the 
value of the maximum- valued argument. The 
returned value is converted to conform to 
the highest characteristics of all the 
arguments that were specified. If the 
arguments are fixed- point values and have 
precisions: 

tPi#qa.)» (Paqa)»---f <Pnrqn> 

then the precision of the result is as 
follows: 



floating-point scale, its precision is the 
higher of the precisions of the arguments; 
if the result is in fixed-point scale, its 
precision is defined as follows: 

(MIN(N,p a -q 2 +MAX(q if q a ) ) ,MAX(q if q 2 ) ) 

where (p±»qi) and (p 2/ q 2 ) are the precision 
of "Xi" and "x 2 ," respectively. 



(MIN(N r MAX(p :t -q lr ...,p n -q n ) + 

MAX(q lf . , . , q n ) ) , MAX (q ± , . . . q n ) ) 



MULTIPLY Arithmetic Built-in Function 



MIN Arithmetic Built-in Function 



Defini tion: MIN extracts the lowest-valued 
expression from a given set of two or more 
expressions and returns that value to the 
point of invocation. 



Reference: MIN (x lr x 2 , 



x n ) 



Arguments: Two or more arguments must be 
given. The arguments must not be complex. 

Result: The value returned by MIN is the 
value of the lowest-valued argument. The 
returned value is converted to conform to 
the highest characteristics of all the 
arguments that were specified. If the 
arguments are fixed-point values and have 
precisions : 

(pirqi). (P2»q2> r •• • # Cp n #qn) 

then the precision of the result is as 
follows : 

(MIN(N r MAX(pa.-q lf . . . , P n - qn) + 

MAX(q lr . .. .q n ) ) , MAX (q lf . . . ,q n ) ) 



MOD Arithmetic Built-in Function 



Definition: MULTIPLY 
two given values and 



^inds the product of 
returns it to the 
point of invocation. This function allows 
the programmer to control the precision of 
the result of a multiplication oneration. 

Reference: MULTIPLY (xj. ,x 2 ,p[ ,q] ) 

Arguments : Arguments "xj." and "x 2 " rep- 
resent the values to be multiplied. Argu- 
ments "p" and "q" ("q" is optional and may 
be signed) are decimal integer constants 
specifying the precision of the result. If 
the result is a fixed-point value, "p" and 
"q" must both be specified; if the result 
is a floating-point value, only "p" must be 
specified. In either case, "p" must not 
exceed N. 

Result: The value returned by this func- 
tion is the product of "x x " and "x 2 ." The 
precision of the result is as specified; 
this precision is maintained throughout the 
execution of the function. 



PRECISION Arithmetic Built-in Function 



Definition: 



PRECISION converts 



given 



value to a specified precision and returns 
the converted value to the point of invoca- 
tion. 



Definition: 



MOD 



extracts the remainder 



resulting from the division of one real 
quantity by another and returns it to the 
point of invocation. 

Referen ce: MOD (x lr x 2 ) 

Arguments: Two arguments must be given. 
They must not be complex. Before the 
function is invoked, the base and scale of 
each argument are converted according to 
the standard rules for data conversion. 

Result : The value returned by MOD is the 
positive remainder resulting from the divi- 
sion of "Xi" by "x 2 ." If the result is in 



Reference: PRECISION (x,pl,q]) 

Arguments : The first argument, "x, " rep- 
resents the value to be converted to the 
specified precision. Arguments "p" and "q" 
("q" is optional and may be signed) are 
decimal integer constants specifying the 
precision of the result. If "x" is a 
fixed-point value, "p" and "q" must be 
specified; if "x" is a floating-point 
value, only "p" must be specified. 



Result 



The value returned by this func- 
tion is the value of "x" converted to the 
specified precision. The base, scale, and 
mode of the returned value are the same as 
those of "x. " 
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REAL Arithmetic Built-in Function 



Definition ; REAL extracts the real part of 
a given complex value and returns it to the 
point of invocation. (REAL can also be 
used as a pseudo-variable. ) 



R efere n c e; REAL (x) 

Argument ; The argument , 
complex expression. 



'x, 



must be a 



The base, scale, mode, and precision of 
the returned value are those of the value 
of "expression," with one exception: if the 
value of "expression" is fixed-point of 
precision (p,q), the result is fixed-point 
of precision: 

(MIN(p+l,N) ,q) 

Note that the rounding of a negative 
quantity results in the rounding of the 
absolute value of that quantity. 



Result: The value returned by this func- 
tion is the real part of the complex value 
represented by "x." The base, scale, and 
precision of the real part are unchanged. 



ROUND Arithmetic Built-in Function 



SIGN Arithmetic Built-in Function 



Definition: SIGN determines whether a 
value is positive, negative, or zero, and 
it returns an indication to the point of 
invocation. 



Reference: SIGN (x) 



Definition: ROUND rounds a given value at 
a specified digit and returns the rounded 
value to the point of invocation. 

Referen ce: ROUND (expression, n) 



Argument s : The fi 
"expression," is an el 
resenting the value (or 
of an array expression) 
second argument, "n," 
unsigned decimal integ 
fying the digit at wh 
"expression" is to be 
positive, rounding occur 
to the right of the 
point in the value of "e 
is negative, rounding 
digit to the left of de 
point in the value of 
that the decimal (or 
assumed to be at the 
point values. 



rst argument, 
ement or array rep- 
values, in the case 
to be rounded; the 
is a signed or 
er constant speci- 
ich the value of 
rounded. If "n" is 
s at the nth digit 
decimal (or binary) 
xpression"; if "n" 
occurs at the nth 
cimal (or binary) 
expression." Note 
binary) point is 
left for floating- 



Result: 



For 



fixed-point values, ROUND 

returns the value of "expression" rounded 
at the nth digit to the right of the 
decimal (or binary) point for positive "n" 
or to the left of the decimal (or binary) 
point for negative "n. " Thus, when "n" is 
negative, the returned value is an integer. 

If "expression" is a floating-point 
expression, the second argument is ignored, 
and the rightmost bit in the internal 
floating-point representation of the 
expression's value is set to 1 if it is 0. 
If the rightmost bit is 1, it is left 
unchanged. 

If "expression" is a string, the 
returned value is the same string unmodi- 
fied. 



Argument : The argument, "x," must not be 
complex. 

Result; This function returns a real 
fixed-point binary value of default preci- 
sion according to the following rules : 

1. If the argument is greater than 0, the 
returned value is 1. 

2. If the argument is equal to zero, the 
returned value is 0. 

3. If the argument is less than zero, the 
returned value is -1. 



TRUNC Arithmetic Built-in Function 



Definition: TRUNC truncates a given value 
to an integer as follows: first, it deter- 
mines whether a given value is positive, 
negative, or equal to zero. If the value 
is negative, TRUNC returns the smallest 
integer that is greater than that value; if 
the value is positive or equal to zero, 
TRUNC returns the largest integer that does 
not exceed that value. 

Reference: TRUNC (x) 



Argument : 
complex. 

Result: If 



The argument, "x," must not be 



is less than 



zero, the 

value returned by TRUNC is CEIL(x). If "x" 
is greater than or equal to zero, the value 
returned by TRUNC is FLOOR (x). In either 
case, the base, scale, and mode of the 
result are the same as those of "x." If 
"x" is a floating-point value, the preci- 



16 2 



sion remains the same. If "x" is a fixed- 
point value of precision (p r q)r the 
precision of the result is: 

(MIN(N,MAX(p-q+l,l) ) ,0) 



Result: When "x" alone is specified, the 
value returned by ATAN depends on the mode 



of "x. " If 



is real, the returned value 



is the arctangent of 
radians, where: 

-pi/2<ATAN(x)<pi/2 



exDressed in 



MATHEMATICAL BUILT-IN FUNCTIONS 



All arguments to the mathematical built- 
in functions should be in coded arithmetic 
form and in floating-point scale. Any 
argument that does not conform to this rule 
is converted to coded arithmetic and 
floating-point before the function is 
invoked,, according to the standard rules 
for data conversion. Note, therefore, that 
in the function descriptions below, a ref- 
erence to an argument always means the 
converted argument, if conversion was nec- 
essary. 

In general, an argument to a mathemati- 
cal built-in function may be a scalar or 
aggregate expression (see "Built-in Func- 
tions with Aggregate Arguments," in Chapter 
3). 

Unless it is specifically stated other- 
wise, an argument may be real or complex. 
Tables 3 and 4 at the end of this section 
provide a quick reference for those mathe- 
matical functions that accept either real 
or complex arguments and those that accept 
only real argximents. 

All of the mathematical built-in func- 
tions return coded arithmetic floating- 
point values. The mode, base, and 
precision of these values are always the 
same as those of the arguments. 



If "x" is complex, the arctangent function 
is multiple-valued, and hence only the 
principal value can be returned. The prin- 
cipal value of ATAN for a complex argument 
"x" is defined as follows: 

-i*ATANH(i*x) 

If both "x" and "y" are specified, the 
possible values returned by this function 
are defined as follows: 

1. If y>0, the value is arctangent (x/y) 
in radians. 

2. If x>0 and y=0, the value is (pi/2) 
radians. 

3. If x>0 and y<0, the value is (pi+ 
arctangent (x/y)) radians. 

U. If x<0 and y=0, the value is (-pi/2) 
radians. 

5. If x<0 and y<0, the value is (~pi+ 
arctangent (x/y)) radians. 



ATAND Mathematical Built-in Function 



Definition: ATAND finds the arctangent of 
a given real value and returns the result, 
expressed in degrees, to the point of 
invocation. 



ATAN Mathematical Built-in Function 



Definition : ATAN finds the arctangent of a 
given value and returns the result 
expressed in radians, to the point of 
invocation. 

Reference: ATAN (x[,yl) 

Argu ments: The argument, "x, " must always 
be specified; the argument "y" is optional. 
If "y" is omitted, "x" represents the value 
whose arctangent is to be found; in such a 
case, "x" may be real or complex, but if it 
is complex,, it must not be equal to ±li. 

If "y" is specified, then the value 
whose arctangent is to be found is taken to 
be the expression x/y. In this case, both 
"x" and "y" must be real, and both cannot 
be equal to at the same time. 



Reference: ATAND (x[,yl) 

Arguments: Arguments "x" and "y" ("y" may 
be omitted) must be real values. If "y" is 
omitted, "x" represents the value whose 
arctangent is to be found. If "y" is 
specified, the valxie whose arctangent is to 
be found is represented by the expression 
x/y; in this case, both "x" and "y" cannot 
be equal to at the same time. 

Result: If "y" is not specified, the value 
returned by this function is simply the 
arctangent of "x," expressed in degrees, 
where: 

-90<ATAND(x)<90 

If "y" is specified, the value returned 
by this function is ATAN (x,y), except that 
the value is expressed in degrees and not 
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in radians (see "ATAN Mathematical Built-in Argument : The value whose cosine is to be 
Function" in this section); that is, the found is given by "x" ; this value must be 
returned value is defined as: real and must be expressed in degrees. 



ATAN(x,y) = (180/pi) *ATAN(x, y) 



Result: The value returned by this func- 
tion is the cosine of "x. " 



ATANH Mathematical Built-in Function 



Definition : ATANH finds the inverse hyper- 
bolic tangent of a given value and returns 
the result to the point of invocation. 

Reference: ATANH ( x) 

Argument : The value whose inverse hyper- 
bolic tangent is to be found is represented 
by "x. w If "x" is real, the absolute value 
of "x" must not be greater than or equal to 
1; that is, for real "x, " it is an error if 



ABS(x)>l. If 
be equal to ±1. 



is complex, it must not 



Result: If "x" is real, the value returned 
by this function is the inverse hyperbolic 
tangent of "x. " For complex "x," the 
inverse hyperbolic tangent is defined as 
follows: 



(LOG( (l+x)/(l-x)))/2 



COSH Mathematical Built-in Function 



Definition: COSH finds the hyperbolic 
cosine of a given value and returns the 
result to the point of invocation. 

Reference: COSH (x) 

Argument : The value whose hyperbolic 
cosine is to be found is given by "x. " 

Result: The value returned by this func- 
tion is the hyperbolic cosine of "x." For 
complex argument "x," the hyperbolic cosine 
of "x" is defined below, where x = y±+iy 2 : 

cosh(x)=cosh(y 1 ) *cos (y 2 ) +i*sinh(y 1 )*sin(y 2 ) 



ERF Mathematical Built-in Function 



COS Mathematical Built-in Function 



Definition: ERF finds the error function 
of a given real value and returns it to the 
point of invocation. 



Definition : COS finds the cosine of a 
given value, which is expressed in radians, 
and returns the result to the point of 
invocation. 



Reference: ERF (x) 

Argument : The value for which the error 
function is to be found is represented by 
"x"; this value must be real. 



Reference: COS (x) 

Argument : The value whose cosine is to be 
found is given by "x"; this value can be 
real or complex and must be expressed in 
radians. 



Result: The value returned by this func- 
tion is defined as follows: 



ERF(x)= _2 



L_ f* 



dt 



Result? The value returned by this func- 
tion is the cosine of "x. " For complex 
argument "x," the cosine of "x" is defined 
below, where x = yi+iy 2 : 

cos (x)=cos (y ± ) *cosh(y 2 ) -i+sintyi) *sinh(y 2 ) 



ERFC Mathematical Built-in Function 



Definition: ERFC finds the complement of 
the error function (ERF) for a given real 
value and returns the result to the point 
of invocation. 



COSD Mathematical Built-in Function 



Definition: COSD finds the cosine of a 
given real value, which is expressed in 
degrees, and returns the result to the 
point of invocation. 



Reference: ERFC (x) 

Argument : The argument, "x, " represents 
the value whose error function complement 
is to be found; "x" must be real. 

Result: The value returned by this func- 
tion is defined as follows: 



Reference: COSD (x) 



ERFC(x) = l-ERF(x) 
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EXP Mathematical Built-in Function 



LOG2 Mathematical Built-in Function 



Definitio n: EXP raises e (the base of the Definition: L0G2 finds the binary (i.e., 



natural logarithm system) to a given power 
and returns the result to the point of 
invocation. 



Reference: EXP (x) 



Argument : The argument, "x," specifies the 
power to which e is to be raised. 



Result: The value returned by this func- 
tion is e raised to the power of "x." 



base 2) logarithm of a given real value and 
returns it to the point of invocation. 

Reference: L0G2 (x) 

Argument : The argument, "x," is the value 
whose binary logarithm is to be found; it 
must be real and it must not be less than 
or equal to 0. 

Result: The value returned to this func- 
tion is the binary logarithm of "x." 



SIN Mathematical Built-in Function 



LOG Mathematical Built-in Function 



Definit i on: LOG finds the natural logar- 
ithm (i.e., base e) of a given value and 
returns it to the point of invocation. 



Reference: LOG (x) 



Argument : The argument, "x," is the value 
whose natural logarithm is to be found. If 
"x" is real, it must not be less than or 
equal to 0; if "x" is complex, it must not 
be equal to 0+0i. 

Result : The value returned by this func- 
tion is the natural logarithm of "x." 
However, if "x" is complex, the function is 
multiple-valued; hence, only the principal 
value can be returned. The principal value 
has the form w = u±i*v, where v lies in the 
range: 

-pi<v<pi 



Definition: SIN finds the sine of a given 
value, which is expressed in radians, and 
returns it to the point of invocation. 



Reference: 



SIN (x) 



Argument : The argument, "x," is the value 
whose sine is to be found; it must be 
expressed in radians. 

Result: The value returned by this func- 
tion is the sine of "x." For complex 
argument "x," the sine of "x" is defined 
below, where x = yi + i*y2 : 

sin(x)=sin(y 1 )*cosh(y 2 ) +i*cos (y ± ) *sinh(y 2 ) 



SIND Mathematical Built-in Function 



Definition: SIND finds the sine of a given 
real value, which is expressed in degrees, 
and returns the result to the point of 
invocation. 



Reference: 



SIND (x) 



LOG10 Mathematical Built-in Function 



Definition : LOG10 finds the common logar- 
ithm (i.e., base 10) of a given real value 
and returns it to the point of invocation. 

Referenc e: LOG10 (x) 

Argumen t : The argument, "x, " represents 
the value whose common logarithm is to be 
found; this value must be real and it must 
not be less than or equal to 0. 

Result: The value returned by this func- 
tion is the common logarithm of "x. " 



Argument : The argument, "x, " is the value 
whose sine is to be found; "x" must be real 
and it must be expressed in degrees. 

Result: The value returned by this func- 
tion is the sine of "x." 



SINH Mathematical Built-in Function 



Definition: SINH finds the hyperbolic sine 
of a given value and returns the result to 
the point of invocation. 

Reference: SINH (x) 
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Argument a The argument, "x, " is the value 
whose hyperbolic sine is to be found. 

Result: The value returned by this func- 
tion is the hyperbolic sine of "x." For 
complex argument "x," the hyperbolic sine 
of "x" is defined below, where x = y±+i*y 2 : 

sinh(x)=sinh(y ± ) *cos (y 2 ) +i*cosh(y 1 ) *sin(y 2 ) 



degrees, and returns 
point of invocation. 



Reference: TAND (x) 



the result to the 



Argument : The argument, "x," represents 
the value whose tangent is to be found; "x" 
must be expressed in degrees. 



SQRT Mathematical Built-in Function 



Definitio n: SQRT finds the square root of 
a given value and returns it to the point 
of invocation. 



Result: The value returned by this func- 
tion is the tangent of "x." 



Reference : SQRT (x) 

Argument : The argument, "x, " is the value 
whose square root is to be found. If "x" 
is real, it must not be less than 0. 



Result: 



If 



is real, the value returned 



by this function is the positive square 
root of "x. " If "x" is complex, the square 
root function is multiple-valued; hence, 
only the principal value can be returned to 
the user. The principal value has the form 
w = u±i*v, where either u>0, or u=0 and 
v>0. 



TANH Mathematical Built-in Function 



Definition : TANH finds the hyperbolic tan- 
gent of a given value and returns the 
result to the point of invocation. 



Reference: TANH (x) 



Ar g ument: The argument, "x," represents 
the value whose hyperbolic tangent is to be 
found. 



TAN Mathematical Built-in Function 



Result : The value returned by this func- 
tion is the hyperbolic tangent of "x." 



Definition: TAN finds the tangent of a 
given value, which is expressed in radians, 
and returns it to the point of invocation. 



Summary of Mathematical Functions 



Reference : TAN (x) 

Argument : The argument, "x, " represents 
the value whose tangent is to be found; "x" 
must be expressed in radians. 

Result: The value returned by this func- 
tion is the tangent of "x. " 



TAND Mathematical Built-in Functions 



Definition: TAND finds the tangent of a 
given real value which is expressed in 



Table 3 summarizes the mathematical 
built-in functions. In using it, the read- 
er should be aware of the following: 



1. 



2. 



3. 



?4. 



A complex argument, 
defined as x = yi+i*y 2 « 



■x. 



The value returned by each function is 
always in floating-point. 

The error conditions are those defined 
by the PL/I Language. 

All arguments must be coded arithmetic 
and floating-point scale, or such that 
they can be converted to coded arith- 
metic and floating-point. 
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Table 3. Mathematical Built-in Functions 



r — t- 

| Function Reference! 



Argument Type | Value Returned 



Error Conditions 



-+- 



4- 



| + 

arctan(x) in radians 
-(pi/2XATAN(x)<pi/2 



ATAN(x) 



real 



complex 
both real 



■i*ATANH(i*x) 



4- 



x = ±li 



ATAN(x f y) 



see function 
description 



error if 
x=0 and y=0 



ATAND(x) 



real 



arctan(x) in degrees 
-90<ATAND(x)<90 



ATAND(x,y) 
ATANH(x) 



both real 



see function 
description 



error if 
x=0 and y=0 



real 
complex 



arctanh(x) 



(L0G((l+x)/(l-x)))/2 



ABS(x)>l 
x = ±1 



COS(x) 

x in radians 



real 
complex 



cosine (x) 



4- 



cos (y A ) *cosh(y 2 ) 
-i*sin(y ± ) *sinh(y 2 ) 



COSD(x) 

x in degrees 



real 



cosine (x) 



COSH(x) 



real 
complex 



cosh(x) 



4- 



cosh (y x ) *cos (y 2 ) 
+i*sinh(y ± ) *sin(y 2 ) 



ERF(x) 
ERFC(x) 



real 
real 



V 



— r 

n / 



e~ t2 dt 



1 - ERF(x) 



EXP(x) 



real 



complex 



LOG(x) 



real 
complex 



log (x) 



log (x) = w 
where w = u±i*v 
and -pi<v<pi 



x<0 
x=0 



+- 



LOGlO(x) 



real 
real 



log ± (x) 



x<0 
x<0 



L0G2(x) 

l , x 



log 2 (x) 
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Table 3. Mathematical 



r t 

I Function Reference 



Built-in Functions (continued) 

T 



Argument Type 



Value Returned 



Error Conditions 



SIN(x) 

x in radians 



real 
complex 



sin(x) 



sin ( Yi)* cosh (y 2 ) 
+i*cos (y x ) *sinh(y 2 ) 



SIND(x) 

x in degrees 



real 



sin(x) 



+- 



SINH(x) 



real 
complex 



sinh(x) 



4- 



sinh(y ± ) *cos (y 2 ) 
+ i*cosh(ya.) *sin(y 2 ) 



SQRT(x) 



real 
complex 



y/X 



x<0 



4- 



X =v^W 

where w = u±i*v 
and either u>0 , or 
u=0 and v>0 



4- 



TAN(x) 

x in radians 



real 
complex 



tangent (x) 



4 



tangent ( x) 



TAND(x) 

x in degrees 



real 



tangent ( x) 



TANH(x) 



real 
complex 



tanh(x) 



tanh(x) 



ARRAY MANIPULATION BUILT-IN FUNCTIONS 



The built-in functions described here 
may be used for the manipulation of arrays. 
All of these functions require array argu- 
ments (which may be expressions) and return 
single element values. Note that since 
these functions return element values, a 
function reference to any of them is con- 
sidered an element expression. 



ALL Array Manipulation Function 



bit strings, 
strings. 



they are converted to bit 



Result: The value returned by this func- 
tion is a bit string whose length is equal 
to the length of the longest element in "x" 
and whose bit values are determined by the 
following rule: 

If the ith bits of all of the elements 
in "x" exist and are 1, then the ith bit 
of the result is 1; otherwise, the ith 
bit of the result is 0. 



Definition: 



ALL tests all bits of a 



given 

bit-string array and returns the result, in 
the form of an element bit-string, to the 
point of invocation. The element bit- 
string indicates whether or not the 
corresponding bits of given array elements 
are all ones. 

Referen ce: ALL (x) 

A rgument : The argument, "x, " is an array 
of bit strings. If the elements are not 



ANY Array Manipulation Function 



Definition: ANY tests the bits of a given 
bit-string array and returns the result, in 
the form of an element bit-string, to the 
point of invocation. The element bit- 
string indicates whether or not at least 
one of the corresponding bits of the given 
array elements is set to 1. 

Reference: ANY (x) 
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Argument : The argument, "x r " is an array 
of bit strings. If the elements are not 
bit strings, they are converted to bit 
strings. 

Result: The value returned by this func- 
tion is a bit string whose length is equal invocation, 
to the length of the longest element in 



LBOUND Array Manipulation Function 



Definition; LBOUND finds the current lower 
bound for a specified dimension of a given 
array and returns it to the point of 



and whose bit values are determined by 
following rule: 



the 



If the ith bit of any element in "x" 
exists and is 1, then the ith bit of the 
result is 1; otherwise, the ith bit of 
the result is 0- 



DIM Array Man ipulation F unction 



Definition : DIM finds the current extent 
for a specified dimension of a given array 
and returns it to the point of invocation. 

Reference: DIM (x f n) 

Arguments : The argument "x" is the array 
to be investigated; "n" is the dimension of 
"x, " the extent of which is to be found. 
If "n" is not a binary integer, it is 
converted to a binary integer of default 
precision. It is an error if "x" has less 
than "n" dimensions, if "n" is less than or 
equal to 0, or if "x n is not currently 
allocated. 

Result: The value returned by this func- 
tion is a binary integer of default preci- 
sion, giving the current extent of the nth 
dimension of "x." 



Reference: LBOUND (x,n) 



Arguments: The a 
to be investigated 
"x" for which the 
found. If "n" is 
is converted to a 
precision. It is 
than "n" dimension 
equal to 0, or 
allocated. 



rgument "x" is the array 

"n" is the dimension of 

lower bound is to be 

not a binary integer, it 

binarv integer of default 

an error if "x" has less 

s, if "n" is less than or 

if "x" is not currently 



Result: The value returned by this func- 
tion is a binary integer of default preci- 
sion giving the current lower bound of the 
nth dimension of "x." 



POLY Array Manipulation Function 



Definition: POLY forms a polynomial from 
two given arguments and returns the result 
of the evaluation of that polynomial to the 
point of invocation. 

Reference: POLY (a,x) 

Arguments: Arguments "a" and "x" must be 
one-simensional arrays (vectors). They are 
defined as follows: 



HBOUND Array Manipulation Function 



Definition : HBOUND finds the current upper 
bound for a specified dimension of a given 
array and returns it to the point of 
invocation. 

Reference: HBOUND (x,n) 

Arguments : The argument "x" is the array 
to be investigated; "n" is the dimension of 
"x" for which the upper bound is to be 
found. If "n" is not a binary integer, it 
is converted to a binary integer of default 
precision. It is an error if "x" has less 
than "n" dimensions, if "n" is less than or 
equal to , or if "x" is not currently 
allocated. 

Result: The value returned by this func- 
tion is a binary integer of default preci- 
sion giving the current upper bound for the 
nth dimension of '"x." 



a (m:n) 

x(p:q) 

where (m:n) and (p:q) represent the bounds 
of "a" and "x," respectively. 

Result: The value returned by this func- 
tion is defined as: 

n-m j-1 

a(m)+ ^2 (a(m+j) * H x(p+i)) 
j=l i=0 

If (q-pX(n-m-l) , then x(p+i)=x(q) for 
(p+i)>q. If m=n, then the result is a(m). 



If 



is an element variable, it is 



interpreted as an array of one element, 
i.e., x(l), and the result is then: 

n-m 
^jP a(m+j)*x**j 
j=0 
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PROD Array Manipulation Function 



Definition; PROD finds the product of all 
of the elements of a given array and 
returns that product to the point of invo- 
cation. 

Reference: PROD (x) 

Argument : The argument, "x," should be an 
array of coded arithmetic floating-point 
elements. If it is not, each element is 
converted to coded arithmetic and floating- 
point before being multiplied with the 
previous product. 



Result: 



The 



value 



returned 



by 



this 



function is the product of 
elements in "x." The scale of 
is floating-point, while 
and precision are those of 
elements of "x." 



all of the 

the result 

the base, mode, 

the converted 



conditions are raised as standard system 
action. If a condition built-in function 
is used out of context, the value returned 
is as described for each function. 

The on-units in which each function can 
be used are given in the function defini- 
tion. 



DATAFIELD Condition Built-in Function 



Definition; Whenever the NAME condition is 
raised, DATAFIELD may be used to extract 
the contents of the data field that caused 
the condition to be raised. It can be used 
only in an on-unit for the NAME condition 
or in an ERROR or FINISH condition raised 
as a result of standard system action for 
the NAME condition. 

Reference: DATAFIELD 



SUM Array Man ipulatio n Function 

Definition ; SUM finds the sum of all of 
the elements of a given array and returns 
that sum to the point of invocation. 

Reference: SUM ( x ) 

Argumen t ; The argument, "x," should be an 
array of coded arithmetic floating-point 
elements. If it is not, each element is 
converted to coded arithmetic and floating- 
point before beinq summed with the previous 
total. 



Result: The value 



returned 



by this 

function is the sum of all of the elements 
" 1 x." The scale of the resxilt is 
while the base, mode, and 
converted ele- 



ln 

floating-point, 

precision are those of the 

ments of the argument. 



CONDITION BUILT-IN FUNCTIONS 



The condition built-in functions allow 
the PL/I programmer to investigate inter- 



rupts that arise 
conditions. None 
requires arguments, 
in function returns 
only when executed 



from enabled 0N- 
of these functions 
Each condition built- 
the value described 
in an on-unit (or a 
block activated directly or indirectly by 
an on-unit) that is entered as a result of 
an interrupt caused by one of the 0N- 
conditions for which the function can be 
used. Such an on-unit can be one specific 
to the condition, or it can be for the 
ERROR or FINISH condition when these 



Result: The value returned by this func- 
tion is a varying- length character string 
giving the contents of the data field that 
caused the NAME condition to be raised. If 
DATAFIELD is used out of context, a null 
string is returned. 



ONCHAR Condition Built-in Function 



Definition: Whenever the CONVERSION condi- 
tion is raised, ONCHAR may be used to 
extract the character the caused that con- 
dition to be raised. It can be used only 
in an on-unit for the CONVERSION condition 
or in an on-unit for an ERROR or FINISH 
condition raised as standard system action 
for the CONVERSION condition. (ONCHAR can 
also be used as a pseudo- variable. ) 

Reference: ONCHAR 

Result: The value returned by this func- 
tion is a character string of length 1, 
containing the character that caused the 
CONVERSION condition to be raised. This 
character can be modified in the on-unit by 
the use of the ONCHAR or ONSOURCE pseudo- 
variables. If ONCHAR is used out of 
context, a blank is returned. 



ONCODE Condition Built-in Function 



Definition: ONCODE can be used in any 
on-unit to determine the type of interrupt 
that caused the on-unit to become active- 



Reference: ONCODE 
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Result: ONCODE returns a binary integer of 
default precision. This "code" defines the 
type of interrupt that caused the entry 
into the currently active on-unit. If 
ONCODE is used out of context, an 
implementation-defined binary integer of 
default precision is returned. 



a CONVERSION condition occurred during 
assignment specified by a KEYTO option. 
This function can be used in the on-unit 
for an input/ output condition or a CONVER- 
SION condition; it can also be used in an 
on-unit for an ERROR or FINISH condition 
raised as standard system action for one of 
the above conditions. 



Reference: 



ONKEY 



ONCOUNT Condition Built-in Function 



Definit ion; ONCOUNT can be used in any 
on-unit entered due to the abnormal 
completion of an input/output event to 
determine the number of interrupts 
(including the current one) that remain to 
be handlcid when a multiple interrupt has 
resulted from that abnormal completion. 



Result; The value returned by this func- 
tion is a varying- length character string 
giving the value of the key for the record 
that caused an input/output or CONVERSION 
condition to be raised. If the interrupt 
is not associated with a keyed record, the 
returned value is the null string. 



Reference; ONCOUNT 

Result; ONCOUNT returns a binary value of 
default precision. If ONCOUNT is used in 
an on-unit entered as part of a multiple 
interrupt, this value specifies the corres- 
ponding number of equivalent single inter- 
rupts (including the current one) that 
remain to be handled; if ONCOUNT is used in 
any other case, the returned value is zero. 



ONLOC Condition Built-in Function 



Definition : Whenever an ON-condition is 
raised, ONLOC may be used in the on-unit 
for that condition to determine the entry 
point to the procedure in which that condi- 
tion was raised. ONLOC may be used in any 
on-unit. 



Reference: ONLOC 



ONFILE Condition Built-in Function 



Definit ion : ONFILE determines the name of 
the file for which an input/outrmt or 
CONVERSION condition was raised and returns 
that name to the point of invocation. This 
function can be used in the on-unit for any 
input/output or CONVERSION condition; it 
also can be used in an on-unit for an ERROR 
or FINISH condition raised as standard 
system action for an input/output or CON- 
VERSION condition. 



Reference: 



ONFILE 



Result; The value returned by this func- 
tion is a varying- length character string 
consisting of the name of the file for 
which an input/output or CONVERSION condi- 
tion was raised. In the case of a CONVER- 
SION condition, if that condition is not 
associated with a file, the returned value 
is the null string. 



Result : The value returned by this func- 
tion is a varying- length character string 
giving the name of the entry point to the 
procedure in which the ON-condition was 
raised. If ONLOC is used out of context, a 
null string is returned. 



ONSOURCE Condition Built-in Function 



Definition: Whenever the CONVERSION condi- 
tion is raised, ONSOURCF may be used to 
extract the contents of the field that was 
being processed when the condition was 
raised. This function can be used in the 
on-unit for a CONVERSION condition or in an 
on-unit for an ERROR or FINISH condition 
raised as standard system action for a 
CONVERSION condition. (ONSOURCE can also 
be used as a pseudo-variable. ) 

Reference: ONSOURCE 



ONKEY Condition Built-in Function 



Definition; ONKEY extracts the value of 
the key for the record that caused an 
input/output condition to be raised- It 
also extracts the key of a record in which 



Result: The value returned by this func- 
tion is a varying- length character string 
giving the contents of the field being 
processed when CONVERSION was raised. This 
string may be modified in the on-unit by 
use of the ONCHAR or ONSOURCE pseudo- 
variable,. If ONSOURCE is used out of 
context, a null string is returned. 



Appendix 1: Built-in Functions and Pseudo- Variables 171 



BASED STORAGE BUILT-IN FUNCTIONS 



NULL Based Storage Built-in Function 



The based storage built-in functions 
generally return special values to program 
control variables concerned in the use of 
based storage and list processing. 



Definition: NULL returns a null pointer 
value (that is., a pointer value that cannot 
identify any allocation) so as to indicate 
that a pointer variable does not currently 
identify an allocation- 



Reference: 



NULL 



ADDR Based Storage Built-in Function 



Definition ; ADDR finds the location at 
which a given variable has been allocated 
and returns a pointer value to the point of 
invocation- The pointer value identifies 
the location at which the variable has been 
allocated. 



Reference: ADDR (x) 



Argument : The argument,, "x, " is the 
variable whose location is to be found. It 
can be any variable that represents an 
element, an array which is not interleaved, 
a structure, an area, an element of an 
array, a minor structure, or an element of 
a structure- It can be of any data type 
and storage class. 

Result : ADDR returns a pointer value iden- 
tifying the location at which "x" has been 
allocated* If "x" is a parameter, the 
returned value identifies the corresponding 
argument (dummy or otherwise) . If "x" is 
an unallocated controlled variable, a null 
pointer value is returned. 



EMPTY Based Storage Built-in Function 



Definition: EMPTY clears an area of stor- 
age defined by an area variable,, by effec- 
tively freeing all the allocations con- 
tained within the area. The area can then 
be used for a new set of allocations- 
Reference: EMPTY 



Arguments : None 



Result: EMPTY returns an area of zero 



size, containing no allocations, to the 
point of invocation. When this value is 
assigned to an area variable, all the 
allocations contained within the area are 
freed. 

Note: The value of the EMPTY built-in 
function is automatically assigned to all 
area variables when they are allocated- 



Arguments: None 

Result: The value returned by this func- 
tion is a null pointer value. This value 
cannot be converted to offset type. 



NULLO Based Storage Built-in Function 



Definition: NULLO returns a null offset 



value (that is, an offset value that cannot 
identify any relative location of a based 
variable allocation) so as to indicate that 
an offset variable does not currently iden- 
tify an allocation- 
Reference: NULLO 



Arguments : None 



Result: The value returned by this func- 
tion is a null offset value. This value 
cannot be converted to pointer type. 



OFFSET Based Storage Built-in Function 



Definition^ OFFSET returns an offset value 
to the beginning of a specified 



relative 

area. 



Reference: OFFSET (p if a) 



Arguments : The argument, "p, " is a scalar 
pointer expression; "a" is a scalar area 
expression that may be qualified and/or 
subscripted. The value of "p" must iden- 
tify an allocation in "a. " 

Result: The value returned by the OFFSET 
built-in function is an offset value that 
identifies an allocation in "a, " relative 
to the beginning of "a." 



POINTER Based Storage Built-in Function 



Definition: POINTER returns a pointer 
value that identifies an allocation in a 



specified area. 
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Referenc e: POINTER (o,a) 



Arguments : The argument, "o/ is an offset 
expression; "a" is a scalar area expression 
that may be qualified and/or subscripted. 
The value of "o" must identify an equival- 
ent allocation in some area, but not neces- 
sarily in "a. " 

Result: The value returned by the POINTER 
built-in function is a pointer value that 
identifies, in "a/ a generation equivalent 
to the allocation originally identified by 
the offset "o." 



Result: The value returned by this task is 
a fixed binary value of precision (n,0), 
where n is implementation- defined. The 
value is the priority value of the named 
task, relative to the priority of the task 
evaluating the function. No other task can 
interrupt and gain control during evalua- 
tion of the priority. 



STATUS Multitasking Built-in Function 



MULTITASKING BUILT-IN FUNCTIONS 



Definition: STATUS determines the status 
value of a given event variable. (STATUS 
can also be used as a pseudo- variable. ) 



The multitasking built-in functions are 
used during multitasking and during asyn- 
chronous input/output operations. They 
allow the programmer to investigate the 
relative priority of a task or the current 
state of execution of a task or asynchron- 
ous input/output operation. They all 
require arguments, which may be scalar 
variables or aggregates. 



COMPLETION Multitasking Built-in Function 



Reference: STATUS (event-name) 

Argument : The argument, " event- name " , rep- 
resents the event (or events) whose status 
value is to be determined. The event can 
be associated with completion of a task, or 
with completion of an input/ output opera- 
tion, or it can be user-defined. It can be 
active or inactive. 

Result: The value returned by this func- 
tion is a fixed binary value of default 
precision,. It is zero if the event is 
normal, or nonzero if abnormal. 



Definition : COMPLETION determines the com- 
pletion value of a given event variable. 
(COMPLETION can also be used as a pseudo- 
variable.) 



MISCELLANEOUS BUILT-IN FUNCTIONS 



Reference: COMPLETION ( event -name) 

Argument : The argument, "event-name," 
represents the event (or events) whose 
completion value is to be determined. The 
event can be associated with completion of 
a task, or with completion of an 
input/output operation, or it can be user- 
defined- It can be active or inactive,. 



Result: The 
function is 



value 
O'B if 



returned by this 
the event is incom- 



plete, ■■• l* B if the event is complete. 



PRIORITY Multitasking Built-in Function 



Definition: PRIORITY determines the rela- 
tive priority of a given task- (PRIORITY 
can also be used as a pseudo-variable.) 

Reference: PRIORITY (task- name) 

Argument : The argument, "task- name," rep- 
resents the task whose relative priority is 
to be determined- 



The functions described in this section 
have little in common with each other and 
with the other categories of built-in func- 
tions. Some require arguments and others 
do not. 



ALLOCATION Built-in Function 



Definition: ALLOCATION determines whether 
or not storage has been allocated for a 
given controlled variable and returns an 
appropriate indication to the point of 
invocation. 

Reference: ALLOCATION (x) 

Argument : The argument, "x," must be a 
level 1 unsubscripted controlled variable. 

Result: The value returned by this func- 
tion is defined as follows: if an alloca- 
tion of "x" is known in the current task, 
the returned value is * l'B; if no alloca- 
tion is known, the returned value is 'O'B- 
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COUNT Built-in Function 



Definition ; COUNT determines the number of 
data items that were transmitted during the 
last GET or PUT operation on a given file 
and returns the result to the point of 
invocation. 

Reference: COUNT (file- name) 

Argument ; The argument, "file name," rep- 
resents the file to be investigated. This 
file must have the STREAM attribute. 

Result: The value returned by this func- 
tion is a binary fixed-point integer of 
default precision specifying the number of 
element data items that were transmitted 
during the last GET or PUT operation on 
"file name." Note that if an on-unit or 
procedure is entered during a GET or PUT 
operation, and within that on-unit or pro- 
cedure a GET or PUT is executed for the 
same file, the value of COUNT is reset for 
the new operation and is not restored when 
the original GET or PUT is continued. 



default precision specifying the current 
line number of "file name." 



TIME Built-in Function 

Definition: TIME returns the current time 
to the point of invocation. 

Reference: TIME 

Arguments : None 

Result: The value returned by this func- 
tion is a character string of length nine, 
in the form hhmmssttt , where: 

hh is the current hour of the day 

mm is the number of minutes 

ss is the number of seconds 

ttt is the number of milliseconds 



DATE Built-in Function 

Definition: DATE returns the current date 
to the point of invocation. 

Reference : DATE 

Arguments : None 

Result: The value returned by this func- 
tion is a character string of length six, 
in the form yymmdd , where: 

yy is the current year 

mm is the current month 

dd is the current day 



LINENO Built-in Function 



Definitio n: LINENO finds the current line 
number for a file having the PRINT attri- 
bute and returns that number to the point 
of invocation. 

Reference : LINENO (file -name) 

Argument : The argument, "file name," must 
be the name of a file having the PRINT 
attribute. 

Result: The value returned by this func- 
tion is a binary fixed-point integer of 



PSEUDO-VARIABLES 



In general, pseudo-variables are certain 
built-in functions that can appear wherever 
other variables can appear in order to 
receive values. In short, they are built- 
in functions used as receiving fields. A 
pseudo-variable may appear on the left of 
the equal sign in an assignment or DO 
statement; it may appear in the data list 
of a GET statement; it may appear as the 
string name in the KEYTO, STRING and REPLY 
options. 

Since all pseudo-variables have built-in 
function counterparts, only a short 
description of each pseudo-variable is 
given here; the discussion of the corres- 
ponding built-in function should be con- 
sulted for the details. Note that pseudo- 
variables cannot be nested; for example, 
the following statement is invalid: 

UNSPEC(SUBSTR(A,1,2))= , 00'B; 



COMPLETION Pseudo-Variable 



Reference: COMPLETION (event-name) 

Description: The named scalar or aggregate 
event variable must be inactive and is as 
described for the COMPLETION built-in 
function. The value received by this 
pseudo-variable is a bit-string of length 
1. This value sets the completion status 
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of the "event variable." A value of * O'B 
specifies that the event associated with 
the "event variable" is incomplete; a value 
of 'l'B specifies that the event is com- 
plete. Assignment to the pseudo-variable 
is uninterruptible. 



Description: ONSOURCE can be used in the 
on-unit for a CONVERSION condition or in an 
on-unit for an ERROR or FINISH condition 
raised as standard system action for a 
CONVERSION condition; it can also be used 
in a block directly or indirectly activated 
by such an on-unit. If ONSOURCE is used in 
some other context, it is an error. 



COMPLEX Pseudo-Variable 



Referen ce: COMPLEX (a,b) 

Description: Only complex values can be 
assigned to this pseudo-variable. The real 
part of the complex value is assigned to 
the varicible "a"; the imaginary part is 
assigned to the variable "b. " The attri- 
butes of "a" and "b" need not be the same. 
Either or both arguments may be aggregates. 



The expression being assigned to 
ONSOURCE is evaluated, converted to a char- 
acter string, and assigned to the string 
that caused the CONVERSION condition to be 
raised. The string will be padded with 
blanks, if necessary, to match the length 
of the string that caused the error. This 
new string displaces the current value of 
the ONSOURCE built-in function and will be 
used when the conversion is re- attempted, 
upon the resumption of execution at the 
point of interriipt. 



IMAG Pseudo-Variable 



PRIORITY Pseudo-Variable 



Reference : IMAG (c) 

Description: Real or complex values may be 
assigned to this pseudo-variable. The real 
value or the real part of the complex value 
is assigned to the imaginary part of the 
complex variable "c," which may be an 
element variable or an array variable. 



ONCHAR Pseudo-Variable 



Reference: 



ONCHAR 



Description : ONCHAR can be used in the 
on-unit for a CONVERSION condition or in 
the on-unit for an ERROR or FINISH condi- 
tion raised as standard system action for a 
CONVERSION condition; it can also be used 
in a block directly or indirectly activated 
by such an on-unit. If ONCHAR is used in 
some other context, it is an error. 

The expression being assigned to ONCHAR 
is evaluated, converted to a character 
string of length 1, and assigned to the 
character that caused the error. The new 
character will displace the current value 
of the ONCHAR built-in function, and will 
be used when the conversion is re- 
attempted, upon the resumption of execution 
at the point of interrupt. 



ONSOURCE Pseudo- Variable 



Reference: PRIORITY t (task-name) ] 

Description: The "task-name" is as des- 
cribed for the PRIORITY built-in function, 



but need not be 
received by this 
fixed-point binary 
(n, 0) , where n is 



Reference: ONSOURCE 



specified. The value 
pseudo-variable is a 
value m of precision 
implementation-defined. 
The priority value of the named task varia- 
ble is adjusted so that it becomes m 
relative to the priority that the current 
task had prior to< the assignment. If an 
active task is associated with the named 
task variable, its priority is given the 
same value as the task variable. 

If "task-name" is not specified, the 
task variable associated with the current 
task (if there is such a variable) is 
implied, and the priority of this variable 
is modified; hence, the priority of the 
current task is modified. 

Assignment to the PRIORITY pseudo- 
variable is uninterruptible. 



REAL Pseudo-Variable 



Reference: REAL (c) 

Description: Real or complex values may be 
assigned to this pseudo-variable. The real 
value or the real part of the complex value 
is assigned to the real part of the complex 
variable "c," which may be an element 
variable or an aggregate variable- 
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STATUS Pseudo-Variable 



Reference: STATUS (event-name) 

Description: The named event variable or 
aggregate of event variables can be active 
or inactive, and is as described for the 
STATUS built-in function. The value 
received by this pseudo-variable is a fixed 
point binary value of default precision. 
Assignment to the pseudo-variable is unin- 
terruptible. 



SUBSTR Pseudo-Variable 



Reference : SUBSTR (string, i [, j] ) 

Description: The value being assigned to 
SUBSTR is assigned to the substring of the 
character- or bit-string variable "string," 



as defined for the built-in function 
SUBSTR. If "string" is an aggregate, i 
and/or j mdi Y be aggregates. The remainder 
of "string" remains unchanged. 



UNSPEC Pseudo-Variable 



Reference: UNSPEC (v) 

Description: The letter "v" represents an 
element or aggregate variable of arithmet- 
ic, string, locator, or area type. The 
value being assigned to UNSPEC is evaluat- 
ed, converted to a bit string (the length 
of which is a function of the charac- 
teristics of "v" — see the UNSPEC built-in 
function), and then assigned to "v," with- 
out conversion to the type of "v." If "v" 
is a string of varying length, its length 
after the assignment will be the same as 
that of the bit string assigned to it. 
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APPENDIX 2: PICTURE SPECIFICATION CHARACTERS 



Picture specification characters appear 
in either the PICTURE attribute or the P 
format item for edit-directed input and 
cutput. In either case, an individual 
character has the same meaning. The PIC- 
TURE attribute is described in Chapter M 
and the P format item is described in 
Chapter 7 of this publication. 

Picture characters are used to describe 
the attributes of the associated data item, 
whether it is the value of a variable or a 
data it€;m to be transmitted between the 
program and external storage. 

A picture specification always describes 
a character representation that is either a 
character-string data item or a numeric 
character data item or a bit representation 
that is a numeric bit data item. A pic- 
tured character- string item is one that can 
consist of alphabetic characters, decimal 
digits, and other special characters. A 
pictured numeric charact er item is one in 
which the data itself can consist only of 
decinal digits, a decimal point and, 
optionally, a plus or minus sign. Other 
characters generally associated with arith- 
metic data, such as currency symbols, can 
also be specified, but they are not a part 
cf the arithmetic value of the numeric 
character variable, although the characters 
are stored with the digits and are consid- 
ered to be part of the character-string 
value of the variable. A pictured num eric 

bit item is one in which the data itself 

can consist only of binary digits, either 
signed or in l*s or 2's complement form, 
with an cissumed binary point. 



specified in the picture specification and 
is to be inserted into the data as part of 
its character-string value; if it does, the 
CONVERSION condition is raised. 

Data assigned to a variable declared 
with a character- string picture specifi- 
cation (or data to be written with a 
character-string picture format item) 
should conform, character by character (or 
be convertible, character by character) to 
the picture specification; if it does not, 
the CONVERSION condition is raised. 



PICTURE CHARACTERS ^FOR CHARACTER- STRING 
DATA 



Only three picture characters can be 
used in character-string picture specifi- 
cations : 

X specifies that the associated position 
can contain any character whose internal 
bit configuration can be recognized by 
the computer in use. 

A specifies that the associated position 
can contain any alphabetic character or 
a blank character. 

9 specifies that the associated position 
can contain any decimal digit or a blank 
character. 

No insertion characters can be specified. 
At least one A or X must appear. 



Arithmetic data assigned to a numeric 
character variable is converted to charac- 
ter representation. Editing, such as zero 
suppression and the insertion of other 
characters, can be specified for a numeric 
character data item. Editing cannot be 
specified for pictured character- string 
data. 

Data assigned to a variable declared 
with a numeric picture specification, eith- 
er decimal or binary, (or data to be 
written with a numeric picture format item) 
must be either internal coded arithmetic 
data or data that can be converted to coded 
arithmetic. Thus, assigned data can con- 
tain only digits and, optionally, a decimal 
point and a sign. It should not contain 
any other character, even though that char- 
acter (for example, a currency symbol) is 



PICTURE CHARACTERS FOR NUMERIC CHARACTER 
DATA 



Numeric character data must represent 
numeric values; therefore, the associated 
picture specification cannct contain the 
characters X or A. The picture characters 
for numeric character data can specify 
detailed editing of the data. 

A numeric character variable can be 
considered to have two different kinds of 
value, depending upon its use. They are 
(1) its arithmetic value and (2) its 
character-string value. 

The arithmetic value is the value 
expressed by the decimal digits of the data 
item, the assumed location of a decimal 
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point, and possibly a sign. The arithmetic 
value of a numeric character variable is 
used whenever the variable appears in an 
expression that results in a coded arith- 
metic value or whenever the variable is 
assigned to a coded arithmetic, numeric 
character, or bit-string variable. In such 
cases, the arithmetic value of the numeric 
character variable is converted to internal 
coded arithmetic representation. 

The character-string value is the value 
expressed by the decimal digits of the data 
item, as well as all of the editing and 
insertion characters appearing in the pic- 
ture specification. The character-string 
value does not, however, include the 
assumed location of a decimal point, as 
specified by the picture character V. The 
character-string value of a numeric charac- 
ter variable is used whenever the variable 
appears in a character-string expression 
operation or in an assignment to a 
character-string variable, whenever the 
data is printed using list-directed or 
data-directed output, or whenever a ref- 
erence is made to a character- string varia- 
ble that is defined on the numeric charac- 
ter variable. In such cases, no data 
conversion is necessary. 

The picture characters for numeric char- 
acter specifications may be grouped into 
the following categories: 

• Digit and Point Specifiers 

• Zero Suppression Characters 

• Insertion Characters 

• Signs and Currency Symbol 

• Credit, Debit, and Overpunched Signs 

• Exponent Specifiers 

• Scaling Factor 

• Sterling Picture Characters 

The picture characters in these groups 
may be used in various combinations. Con- 
sequently, a numeric character specifi- 
cation can consist of two or more parts 
such as ci sign specification, an integer 
subfield, a fractional subfield and, for 
floating-point, an exponent field. A 
sterling picture specification contains 
separate fields for pounds, shillings, and 
pence; the pence field can have an integer 
subfield and a fractional subfield. 

A major requirement of the picture 
specification for numeric character data is 
that each field must contain at least one 
picture character that specifies a digit 
position. This picture character, however, 



need not be the digit character 9. Other 
picture characters, such as the zero 
suppression characters (Z or * or Y) , also 
specify digit positions. At least one of 
these characters must be used to define a 
numeric character specification. 



DECIMAL DIGIT AND POINT SPECIFIERS 



The picture characters 9 and V are used 
in the simplest form of decimal numeric 
character specifications that represent 
fixed-point decimal values. 

9 specifies that the associated position 
in the data item is to contain a decimal 
digit. 

V specifies that a decimal point is 
assumed at this position in the asso- 
ciated data item. However, it does not 
specify that an actual decimal point is 
to be inserted. The integer and frac- 
tional parts of the assigned value are 
aligned on the V character; therefore, 
an assigned value may be truncated or 
extended with zero digits at either end. 
(Note that if significant digits are 
truncated on the left, the result is 
undefined and a SIZE interrupt will 
occur, if SIZE is enabled.) If no V 
character appears in the picture speci- 
fication of a fixed-point decimal value 
(or in the first field of a picture 
specification of a floating-point deci- 
mal value) , a V is assumed at the right 
end of the field specification. This 
can cause the assigned value to be 
truncated, if necessary, to an integer. 
The V character cannot appear more than 
once in a picture specification. The V 
is considered to be a subfield delimiter 
in the picture specification; that is, 
the portion preceding the V and the 
portion following it (if any) are each a 
subfield of the specification. 



BINARY DIGIT AND POINT SPECIFIERS 



The picture characters 1, 2, 3, and V 
are used in numeric bit specifications to 
represent binary digits and a binary point. 

1 specifies that the associated position 
in the data item is to contain a 
binary digit. 

2 specifies that the associated position 
in the 2*s complement data item is to 
contain a binary digit. 
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3 specifies that the associated position 
in the l's complement data item is to 
contain a binary digit. 

V specifies that a binary point is 
assumed at this position in the asso- 
ciated data item. Its effect is the 
same as that described above for the V 
picture character, as used in a numer- 
ic character picture specification. 



ZERO SUPPRESSION CHARACTERS 



The zero suppression picture characters 
specify conditional digit positions in the 
character-string value and may cause lead- 
ing zeros to be replaced by asterisks or 
blanks and nonleading zeros to be replaced 
by blanks. Leading zeros are those that 
occur in the leftmost digit positions of 
fixed-point numbers or in the leftmost 
digit positions of the two parts of 
floating-point numbers, that are to the 
left of the assumed position of a decimal 
point, and that are not preceded by any of 
the digits 1 through 9. The leftmost 
nonzero digit in a number and all digits, 
zeros or not, to the right of it represent 
significant digits. Note that a floating- 
point number can also have a leading zero 
in the exponent field. 

Z specifies a conditional digit position 
and causes a leading zero in the 
associated data position to be replaced 
by a blank character. When the asso- 
ciated data position does not contain a 
leading zero, the digit in the position 
is not replaced by a blank character. 
The picture character Z cannot appear in 
the same subfield as the picture charac- 
ter *, nor can it appear to the right of 
a drifting picture character or any of 
the picture characters 9, T, I, or R in 
a field. 

* specifies a conditional digit position 
and is used the way the picture charac- 
ter Z is used, except that leading zeros 
are replaced by asterisks. The picture 
character * cannot appear with the pic- 
ture character Z in the same subfield, 
nor can it appear to the right of a 
drifting picture character or any of the 
picture characters 9, T, I, or R in a 
field. 

Y specifies a conditional digit position 
and causes a zero digit, leading or 
nonleading, in the associated position 
to be replaced by a blank character. 
When the associated position does not 
contain a zero digit, the digit in the 
position is not replaced by a blank 
character. 



Note : If one of the picture characters Z 
or * appears to the right of the picture 
character V, then all fractional digit 
positions in the specification, as well as 
all integer digit positions, must employ 
the Z or * picture character, respectively. 
When all digit positions to the right of 
the picture character V contain zero 
suppression picture characters, fractional 
zeros of the value are suppressed only if 
all positions in the fractional part con- 
tain zeros and all integer positions have 
been suppressed. The entire character- 
string value of the data item will then 
consist of blanks or asterisks. No digits 
in the fractional part are replaced by 
blanks or asterisks if the fractional part 
contains any significant digit. 



INSERTION CHARACTERS 



The picture characters comma (,), point 
(.), slash (/) , and blank (B) are insertion 
characters; they cause the specified 
character to be inserted into the associat- 
ed position of the numeric character data. 
They do not indicate digit positions, but 
are inserted between digits. Each does, 
however, actually represent a character 
position in the character-string value, 
whether or not the character is suppressed. 
The comma, point, and slash are conditional 
insertion characters; within a string of 
zero suppression characters, they, too, may 
be suppressed. The blank (B) is an uncond- 
itional insertion character; it always spe- 
cifies that a blank is to appear in the 
associated position. 

Note : Insertion characters are applicable 
only to the character-string value. They 
specify nothing about the arithmetic value 
of the data item. 

causes a comma to be inserted into the 
associated position of the numeric char- 
acter data when no zero suppression 
occurs. If zero suppression does occur, 
the comma is inserted only when an 
unsuppressed digit appears to the left 
of the comma position, or when a V 
appears immediately to the left of it 
and the fractional part contains any 
significant digits. In all other cases 
where zero suppression occurs, one of 
three possible characters is inserted in 
place of the comma. The choice of 
character to replace the comma depends 
upon the first picture character that 
both precedes the comma position and 
specifies a digit position: 

• If this character position is an 
asterisk, the comma position is 
assigned an asterisk. 
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• If this character position is a 
drifting sign or a drifting currency 
symbol (discussed later) , the drift- 
ing string is assumed to include the 
comma position, which is assigned the 
drifting character. 

• If this character position is not an 
asterisk or a drifting character, the 
comma position is assigned a blank 
character. 

is used the same way the comma picture 
character is used, except that a point 
(.) is assigned to the associated posi- 
tion. This character never causes point 
alignment in the picture specifications 
of a fixed-point decimal number and is 
not a part of the arithmetic value of 
the data item. That function is served 
solely by the picture character V. 
Unless the V actually appears, it is 
assumed to be to the right of the 
rightmost digit position in the field, 
and point alignment is handled accord- 
ingly, even if the point insertion char- 
acter appears elsewhere. The point (or 
the comma or slash) can be used in 
conjunction with the V to cause inser- 
tion of the point (or comma or slash) in 
the position that delimits the end of 
the integer portion and the beginning of 
the fractional portion of a fixed-point 
(or floating-point) number, as might be 
desired in printing, since the V does 
not cause printing of a point. The 
point must immediately precede or 
immediately follow the V. If the point 
precedes the V, it will be inserted only 
if a significant digit appears to the 
left of the V r even if all fractional 
digits are significant. If the point 
immediately follows the V, it wili be 
suppressed if all digits to the right of 
the V are suppressed, but it will appear 
if there are any fractional digits 
(along with any intervening zeros). 

/ is used the same way the comma picture 
character is used, except that a slash 
(/) is inserted in the associated posi- 
tion. 

B specifies that a blank character always 
be inserted into the associated position 
of the character- string value of the 
numeric character data. 



SIGNS AND CURRENCY SYMBOL 



The picture characters s, +, and 
specify signs in numeric character data. 
The picture character $ specifies a curren- 
cy symbol in the character- string value of 
numeric character data. 



These picture characters may be used in 
either a static or a drifting manner. A 
drifting character is similar to a zero 
suppression character in that it can cause 
zero suppression. However, the character 
specified by the drifting string is always 
inserted in the position specified by the 
end of the drifting string or in the 
position immediately to the left of the 
first significant digit. 

The static use of these characters spe- 
cifies that a sign, a currency symbol, or a 
blank always appears in the associated 
position. The drifting use specifies that 
leading zeros are to be suppressed. In 
this case, the rightmost suppressed posi- 
tion associated with the picture character 
will contain a sign, a blank, or a currency 
symbol. 

A drifting character is specified by 
multiple use of that character in a picture 
field. Thus, if a field contains one 
currency symbol ($), it is interpreted as 
static; if it contains more than one, it is 
interpreted as drifting. The drifting 
character must be specified in each digit 
position through which it may drift. 

Drifting characters must appear in 
strings. A string is a sequence of the 
same drifting character, optionally con- 
taining a V and one of the insertion 
characters comma, point, slash, or B. Any 
of the insertion characters slash, comma, 
point, or B following the last drifting 
symbol of the string is considered part of 
the drifting string. However, a following 
V terminates the drifting string and is not 
part of it. A field of a picture specifi- 
cation can contain only one drifting 
string. A drifting string cannot be 
preceded by a digit position. The picture 
characters * and Z cannot appear to the 
right of a drifting string in a field. 

The position in the data associated with 
the characters slash, comma, point, and B 
appearing in a string of drifting charac- 
ters will contain one of the following: 

• slash, comma, point,, or blank if a 
significant digit has appeared to the 
left 

• the drifting symbol, if the next posi- 
tion to the right contains the leftmost 
significant digit of the field 

• blank, if the leftmost significant digit 
of the field is more than one position 
to the right 

If a drifting string contains the drift- 
ing character n times, then the string is 
associated with n-1 conditional digit posi- 
tions. The position associated with the 
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leftmost drifting character can contain 
only the drifting character or blank, never 
a digit- If a drifting string is specified 
for a field, the other potentially drifting 
characters can appear only once in the 
field, i.e., the other character represents 
a static sign or currency symbol. 

If a drifting string contains a V within 
it, the V delimits the preceding portion as 
a subfield, and all digit positions of the 
subf ield following the V must also be part 
of the drifting string that commences the 
second subfield. 

Only one type of sign character can 
appear in each field. An S, +, or - used 
as a static character can appear to the 
left of all digits in the mantissa and 
exponent fields of a floating-point speci- 
fication and either to the right or left of 
all digit positions of a fixed-point speci- 
fication. 

In the case in which all digit positions 
after the V contain drifting characters, 
suppression in the subfield will occur only 
if all of the integer and fractional digits 
are zero. The resulting edited data item 
will then be all blanks, except for the 
rightmost digit position, which will con- 
tain the drifting character. If there are 
any significant fractional digits, the 
entire fractional portion will appear 
unsuppr ess ed . 

$ specifies the currency symbol. If this 
character appears more than once, it is 
a drifting character; otherwise it is a 
static character. The static character 
specifies that the character is to be 
placed in the associated position. The 
static character must appear either to 
the left of all digit positions in a 
field of a specification or to the right 
of all digit positions in a specifi- 
cation.. See; details above for the 
drifting use of the character. 

S specifies the plus sign character (+) if 
the data value is >0, otherwise it 
specifies the minus sign character (-) . 
The character may be drifting or static. 
The rules are identical to those for the 
currency symbol. The picture S is the 
only sign symbol that can be used in a 
binary picture specification, and it can 
be used only with the character 1. 

+ specifies the plus sign character (+) if 
the data value is >0, otherwise it 
specifies a blank. The character may be 
drifting or static. The rules are iden- 
tical to those for the currency symbol. 

specifies the minus sign character (-) 
if the data value is <0, otherwise it 
specifies a blank. The character may be 



drifting or static. The rules are iden- 
tical to those for the currency symbol. 



CREDIT, DEBIT, AND OVERPUNCHED SIGNS 



The character pairs CR (credit) and DB 
(debit) specify the signs of real numeric 
character data items and usually appear in 
business report forms. 

Any of the picture characters T, I, or R 
specifies an overpunched sign in the asso- 
ciated digit position of numeric character 
data. It indicates the sign of the arith- 
metic data item. Only one overpunched sign 
can appear in a specification for a fixed- 
point number. A floating-point 
specification can contain two, one in the 
mantissa field and one in the exponent 
field. The overpunch character can, howev- 
er, be specified for any digit position 
within a field. The overpunched number 
then will appear in the specified digit 
position. 

Note: When an overpunch character occurs 
in a P format item for edit-directed input, 
the corresponding character in the input 
stream may contain an overpunched sign. 

CR specifies that the associated positions 
will contain the letters CR if the 
value of the data is less than zero. 
Otherwise, the positions will contain 
two blanks. The characters CR can 
appear only to the right of all digit 
positions of a field. 

DB is used the same way that CR is used 
except that the letters DB appear in 
the associated positions. 

T specifies that the associated position, 
on input, will contain a digit over- 
punched with the sign of the data. It 
also specifies that an overpunch is to 
be indicated in the character-string 
value. 

I specifies that the associated position, 
on input, will contain a digit over- 
punched if the value is >0; otherwise, 
it will contain the digit with no 
overpunching. It also specifies that 
an overpunch is to be indicated in the 
character- string value if the data 
value is >0. 

R specifies that the associated position, 
on input, will contain a digit over- 
punched if the value is <0 ; otherwise, 
it will contain the digit with no 
overpunching. It also specifies that 
an overpunch is to be indicated in the 
character- string value if the data 
value is <0. 
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Note : The picture characters CR, DB, T r I, 
and R cannot be used with any other sign 
characters in the same field. 



STERLING PICTURES 



The following picture characters are 
used in picture specifications for sterling 
data: 



EXPONENT SPECIFIERS 



The picture characters K and E delimit 
the exponent field of a numeric character 
specification that describes floating-point 
decimal numbers. The exponent field is 
always the last field of a numeric charac- 
ter floating-point picture specification. 
The picture characters K an^ E cannot 
appear in the same specification. 



specifies that the exponent field 
appears to the right of the associated 
position. It does not specify a char- 
acter in the numeric character data 
item. 



specifies the position of a shilling 
digit in ESI single-character represen- 
tation. 

specifies the position of a pence digit 
in BSI single-character representation. 

specifies the position of a pence digit 
in IBM. single-character representation. 

specifies that the associated position 
contains the pence character D. 

specifies the start of a sterling clo- 
ture. It does not specify a character 
in the numeric character data item. 

specifies that the associated position 
contains the shillinq character S. 



E specifies that the associated position 
contains the letter E, which indicates 
the start of the exponent field. It 
cannot appear in a binary picture 
specification. 

The value of the exponent is adjusted in 
the character-string value so that the 
first significant digit of the first field 
(the mantissa) appears in the position 
associated with the first digit specifier 
of the specification (even if it is a zero 
suppression character) . 



SCALING FACTOR 



The picture character F specifies a 
scaling factor for fixed-point decimal num- 
bers. It appears at the right end of the 
picture specification and is used in the 
following format: 

F ([+|-] decimal-integer-constant) 

F specifies that the optionally signed 
decimal integer constant enclosed in 
parentheses is the scaling factor. The 
scaling factor specifies that the deci- 
mal point in the arithmetic value of 
the variable is that number of places 
to the right (if the scaling factor is 
positive) or to the left (if negative) 
of its assumed position in the 
character-string value. 



M specifies the start of a field. It 
does not specify a character in the 
numeric character data item. 

Sterling data items are considered to be 
real fixed-point decimal data. When 
involved in arithmetic operations, they are 
converted to a value representing fixed- 
point pence. Sterling pictures have the 
general form: 

PICTURE 

'G [editing-character-1] ... 

M pounds-field 

M [separator-13 ... 

shillings -field 

M [separator- 2] ... 
pence-field 

[editing-character-2] ...' 



"Editing character 1" can be one or more 
of the following static picture characters: 



The "pounds field" can contain the 
following picture characters: 

ZY*9TIR, $+-S 

The last four characters ($ + - S) must 
be drifting characters. The comma can be 
used as an insertion character. 
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"Separator 1" can be one or more of the 
following picture characters: 



/ 



B 



The "shillings field" can be: 

C99 J YY J ZZ 1 Y9 | Z9 | YZ | 8} 

One of the nines can be replaced by T, I, 
or R, if no other sign indicator appears in 
any of the fields of the specification. 

"Separator 2" can be one or more of the 
picture characters: 

/ . B H 

The "pence field" takes the form: 

{99]YY]ZZ| Y9|7|Z9JYZ|6} 

HVJV.J.V] 9]Z|Y]... 



One of the nines can be replaced by T, I, 
or R, if no other sign indicator appears in 
any of the fields of the specification. 

"Editing character 2" can be one or more 
of the picture characters $, +, -, or S and 
one or more of B or °, or CR or DB. A sign 
character or CR or B3 can appear only if no 
other sign indicator apoears in any of the 
fields of the specification. 

The pounds, shillings, and pence fields 
must each contain at least one digit posi- 
tion. 



Zero suppress 
performed on t 
separately on ea 
ings , and penc 
character is not 
6, 7, 8, or 
sterling specif i 
tures, the field 
(/) , point ( . ) 
pressed. 



ion in sterling pictures is 
he total data item, not 
ch of the pounds, shill- 
e fields. The Z picture 
allowed to the right of a 
9 nicture character in a 
cation. In sterling pic- 
separator characters slash 
, B, and H are never sup- 
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APPENDIX 3: ON-CONDITIONS 



The ON- conditions are those conditions 
that may be specified in the ON statement. 
These conditions are also specified in 
SIGNAL and REVERT statements. 

For each condition name, the description 
in this appendix includes the circumstances 
under which the condition occurs, the 
standard system action that would be taken 
in the absence of programmer-specified 
action, and, where applicable, the result. 
("Standard system action" does not refer to 
any operating system but to standard action 
prescribed for the language. ) 

For the conditions OVERFLOW, UNDERFLOW, 
2ERODIVIDE, CONVERSION, or FIXEDOVERFLOW, 
an interrupt action will always take place 
on occurrence of the condition unless the 
occurrence is in a calculation lying within 
the scope of a prefix specifying NOOVER- 
FLOW, NOUNDERFLOW, NOZERODIVIDF , NOCONVER- 
SION, or NOFIXEDOVERFLOW. For the condi- 
tions SIZE, STRINGRANGF, STT5SCRIPTRANGE, or 
CHECK (identifier list) , an interrupt will 
not take place on occurrence of the condi- 
tion unless the occurrence is in a calcula- 
tion lying within the scope of a prefix 
specifying the condition. (See "Prefixes," 
in Chapter 1) . 

For any other condition, whose name may 
not be used in a prefix, an interrupt 
always will result from the occurrence of 
the condition. 



Multiple Int errupts 



A multi pl e interrupt can occur only for 
an input/output operation that has been 
associated with an event variable. It 
occurs during the execution of the WAIT 
statement naming that event variable, if 
the event completed abnormally (i.e., if 
one or more conditions occurred during the 
operation) . Since conditions for an 
input/output event are raised at the execu- 
tion of the WAIT for that event, the 
interrupts for these conditions also occur 
at this time. It is possible for more than 
one interrupt to occur for an input/output 
event. The aggregate of interrupts for an 
input/output event is called a multiple 
interrupt. 

When an input/output event completes 
abnormally, the order in which the condi- 
tions are raised, and therefore, the order 
in which the interrupts for these condi- 



tions occur, is implementation-defined. If 
the on-unit for such a condition issues an 
abnormal return, then all unprocessed con- 
ditions (i.e., remaining interrupts of the 
multiple interrupt) are ignored; if an 
on-unit issues a normal return, the next 
condition is processed. If an on-unit has 
not been established for such a condition 
(or if the on-unit is SYSTEM) , the next 
condition outstanding will be processed 
only if the standard system action is to 
comment and continue; i f the standard sys- 
tem action is otherwise, all remaining 
interrupts in the multiole interrunt will 
be ignored. 



CLASSIFICATION OF CONDITIONS 



The ON-conditions are classified as fol- 
lows: computational conditions, 
input/output conditions, program-checkout 
conditions, list processing- conditions, 
programmer-named conditions, and system- 
action conditions. 



The 



computational 



conditions are 



associated with data handling, 
evaluation, and computation. 



expression 



The input/output conditions are asso- 
ciated with data transmission. 

The program-checkout conditions facili- 
tate debugging of programs. 

The list processing conditions are asso- 
ciated with area usage. 

The programmer-named conditions permit 
the programmer to use conditions of his own 
naming. These conditions are raised only 
by a SIGNAL statement. 

The system-action conditions provide 
facilities to the programmer to extend the 
standard system action taken after the 
occurrence of a condition or at the comple- 
tion of a program. 



COMPUTATIONAL CONDITIONS 



CONVERSION 



This condition is 



raised 



whenever an illegal conversion is attempted 
on character string data, either internally 
or during input or output. The condition 
will be raised for such errors as charac- 



ter 



ters other than 
string, characters 
sion to numeric 
ters in conversi 
conversion is ca 
character, and the 
each illegal con 
may also be rais 
digits in a floati 
the number allow 
On return from the 
tion, the conversi 



or 1 in conversion to bit 
not permitted in conver- 
field, or illegal charac- 
on to arithmetic. The 
rried out character by- 
condition is raised for 
version. This condition 
ed when the number of 
ng-point exponent exceeds 
ed by an implementation, 
on-unit for this condi- 
on will be reattempted. 



Result: When CONVERSION occurs, results of 
the entire resultfield are undefined. 

Standard Sy stem Action : Comment and raise 

the ERROR condition. 

FIXEDOVERFLOW^ This condition occurs dur- 
ing fixed-point arithmetic operations if 
the results of these operations exceed N, 
the maximum field width as defined by the 
implementation. See SIZE for a related 
condition that occurs on assignment. 

Result: Result, of the invalid fixed-point 
operation is undefined. 



UNDERFLOW : This condition occurs when the 
of a floating-point number is 
the permitted minimum, as 



exponent 

smaller than 

defined by the implementation. 



The condition does not occur when equal 
numbers are subtracted (often call signifi- 
cance error) . 



Result: 



[he value of the floating-point 



number is set to zero. 

Standard System Ac t ion: 
tinue execution. 



Comment and con- 



ZERODIVIDE: This condition occurs on an 
attempt to divide by zero. The condition 
does not distinguish between fixed-point 
and floating-point division; either can 
cause it. 



The result of division by zero is 



Result: 
undefined. 



Stan dard System A ctio n : Comment and raise 
the ERROR condition. 



Standa rd Sys tem Action : 
the ERROR condition. 



Comment and raise 



INPUT/OUTPUT CONDITIONS 



OV ERFLOW : This condition occurs when the 
exponent of a floating-point number exceeds 
the permitted maximum, as defined by the 
implementation. 



Result: 



The value of such an invalid 



floating-point number is undefined. 

Stan dar d Sy stem Action: Comment and raise 
the ERROR condition. 

SIZE : This condition is raised by conver- 
sions between data, types, or between dif- 
fering bases, scales, or precisions. The 
condition arises when a value is assigned 
to a data item or during input/output, with 
a loss of hiah-order bits or digits. 



The following conditions are always ena- 
bled and cannot appear in prefix lists. If 
the same file is known in a program by more 
than one name (for example, a file paramet- 
er and its associated file argument), these 
names constitute a set of equivalent filen- 
ames. A condition specified for one filen- 
ame applies to ali names of the set. An 
on-unit established using one filename of 
the set can be overridden by specifying an 
on-unit for another filename of the set. 



ENDFILE (filename): 



This condition may be 
raised during any GET or READ operation, 
and is caused by an attempt to read past a 
file delimiter. It indicates that there is 
no more data on the file. 



The SIZE condition should be distingu- 
ished from FTXEDOVERFLOW that occurs during 
arithmetic calculations. A value too large 
for the field to which it is assigned will 
raise a SIZE condition on assignment, 
regardless of whether there was a FIXEDOV- 
ERFLOW in the calculation of the value. 
FIXEDOVERFLOW depends ripon the size of 
fixed-point numbers allowed in the implem- 
entation. SIZE depends upon the declared 
size or implementation-restricted size of 
the item of data receiving a value. 



Result: 



The contents of the receiving 



field are undefined. 

Standard S ystem Action: 
the ERROR condition. 



Comment and raise 



The end-of-file status remains until the 
file is closed. Subsequent GET or READ 
statements will immediately raise the con- 
dition. On return from the on-unit, proc- 
essing will continue at the next statement. 
If this condition is raised by an 
input /output statement using the EVENT 
option, the interrupt does not take place 
until the execution of a subsequent WAIT 
statement for that event in the same task. 

Standard System Action: Comment and raise 
the ERROR condition. 

ENDPAGE( filename) : This condition is raised 
by a PUT statement when an attempt is made 
to start a new line beyond the limit 
specified for the current page by the 
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PAGESIZE option in an OPEN statement. This 
attempt may be made during data transmis- 
sion (with associated format items, if 
edit-directed transmission) , by the LINE 
option,, or by the SKIP option. It is 
raised only once per page. 

If this condition is raised during data 
transmission, then, on return from the 
on-unit, the data is written on the current 
line, which may have been changed by the 
on-unit. If it is raised by a LINE or SKIP 
option, then, on return from the on-unit, 
the action specified by LINE or SKIP is 
ignored. 

When ENDPAGE is raised, the current line 
number is one greater than that specified 
by the PAGESIZE option. During the execu- 
tion of the on-unit for this condition, or 
after return from the on-unit without a 
PAGE option or PAGE format item having been 
specified, the line number may increase 
indefinitely. However, execution of a LINE 
option or a LINE format item specifying a 
line number less than or equal to the 
current line number will cause a result 
equivalent to that caused by the execution 
of a PAGE option. In this case, ENDPAGE 
will not be raised; however, since the 
current line is now one, ENDPAGE can be 
raised again. 

Standard S ystem Action : Start a new page. 

TRANSMIT (fi lename): This condition may be 
raised during any input/output operation, 
and is caused by a permanent transmission 
error on the specified file. In STREAM 
input, it is raised after assignment to 
each data item or record which is poten- 
tially of incorrect value because of the 
transmission error. On return from the 
on-unit, processing will continue as if no 
error has occurred. 



If this condition is 
cit file opening in an 
ment without the event 
normal return from the 
continues with the remai 
rupted input/output stat 
was not opened in th 
statement cannot be cont 
condition is raised. 



raised by an impli- 
input/output state- 
option, then upon 
on-unit, processing 
nder of the inter- 
ement. If the file 
e on-unit, then the 
inued and the ERROR 



If this condition is raised by an impli- 
cit file openinq in an input/output state- 
ment having an EVENT option, then the 
interrupt occurs before the event variable 
is initialized. In other words, the event 
variable retains its previous value and 
remains inactive. On normal return from 
the on-unit, the event variable is initial- 
ized, that is, it is made active and its 
completion value is set to 'O'B (provided 
the file has been opened in the on-unit). 
Processing then continues with the remain- 
der of the interrupted statement. However, 
if the file has not been opened in the 
on-unit, the event variable remains unini- 
tialized, the statement cannot be contin- 
ued, and the ERROR condition is raised. 

Stan d ard System Action: Comment and raise 

the ERROR condition. 



NAME 



(filename) : 



raised on data-dir 
is caused by an 
in the input or by 
associated data 1 
raised at the t 
return from the on 
the GET statement 
data field in the 



This con 
ected GET 
unrecogniz 

an identi 
ist. The 
ime the er 
-unit, the 
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stream. 



dition may be 
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fier not in the 

condition is 
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execution of 
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By using the DATAEIELD built-in function 
in the ON unit, the programmer may access 
the data field which contained the incor- 
rect name. 



If this condition is raised by an 
input/output statement usinq the EVENT 
option, the interrupt does not take place 
until the execution of a subsequent WAIT 
statement for that event in the same task. 



Standar d Sy stem Action : 
the ERROR condition. 



Comment and raise 



UNDEFINEDFILE ( filename): This condition is 
raised whenever an attempt to open a file 
is unsuccessful. If the attempt is made 
through an OPEN statement, attempts to open 
all other files in that statement will be 
made before this condition is raised. If 
this condition is raised for more than one 
file in the same OPEN statement, on-units 
will be executed according to the order of 
appearance (taken from left to right) of 
the filenames in that OPEN statement. On 
return from the final on-unit, processing 
will continue with the next statement. 



Standard System Action: Ignore the field 
and comment. 

KEY (filename): This condition may be 
raised by any keyed record operation. It 
is raised in the following cases: 

1. A READ for which the key is not found 

2. A WRITE or LOCATE for which the key 
already exists 

3. A REWRITE for which the key is not 
found 



A DELETE for which the key 
found 



is not 



Specification of the character string 
representing the key is in conflict 
with the format prescribed by the 
implementation 
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If this condition is raised by an 
input/ output statement using the EVENT 
option, the interrupt does not take place 
until the execution of a subsequent WAIT 
statement for that event in the same task. 

On return from the on-unit, no further 
action is attempted, and control passes to 
the next statement. 

Standard S ystem Action: Comment and raise 

the ERROR condition. 

RECORD ( filename):: This condition may be 
raised by any READ or REWRITE operation. 
It is raised when the record contains more 
or less data than the specified variable 
(i.e., the size of the variable differs 
from the actual record size) . It may be 
raised on a WRITE when the implementation 
cannot execute the statement. 

If this condition is raised by an 
input/output statement using the EVENT 
option, the interrupt does not take place 
until the execution of a subsequent WAIT 
statement for that event in the same task. 

The ONCODE built-in function returns an 
indication of whether the record variable 
was less than or greater than the record in 
size. 



Before the on-unit is invoked, the 
lowing action takes place: 



:ol- 



1. If the variable cannot contain the 
record, the excess data of the record 
is lost. 

2. If the variable is greater than the 
record in size, the excess data in the 
variable is not transmitted on output 
and is unaltered on input. 

Sta ndard System Action: Comment and raise 

the ERROR condition. 



PROGRAM CHECKOUT CONDITIONS 



SUBS CRIPTR ANGE : This condition occurs when 
a subscript is evaluated and found to lie 
outside its specified bounds. 

The condition does not distinguish 
between values that are too large and 
values that are too small. 

Note that if more than one subscript is 
associated with an identifier, e.g., 
A(I,J„K), the occurrence of a SUBSCRIPT- 
RANGE condition is signalled after each 
subscript has been checked. 

Result: Undefined. 



Standard System Action: Comment and raise 
the ERROR condition. 



STRINGRANGE: This condition may be raised 
by any reference to the SUBSTR built-in 
function or pseudo- variable if the length 
specified for the substring is less than 
zero or if the substring does not lie 
entirely within (or correspond to) the 
specified string. 

The condition can be raised only once 
for each scalar SUESTR reference. 



Result : On normal return from an on-unit, 
execution continues with a revised SUBSTR 
reference whose value is defined as 
follows: 

Let k be the length of the first argu- 
ment (after execution of the 
on-unit) ; the other two arguments 
are represented by i and j_ 

If i is greater than k, the value is 
the null string 

If i is less than or equal to k, the 
value is that substring beginning 
with the mth character or bit of 
the first argument, and extending 
n characters or bits, where m and 
n are defined by: 

m = MAX(i,l) 

n = tfAX(0,MIN( j+MIN(i,l)-l, 
k-m+D) 
if j i- s specified 

n = k-m+1 

if j i s not specified 

The values of i and j_ are established 
before entry to the on-unit; they are 
not reevaluated on return from the 
on-unit. 



Standard System Action: Revise the SUBSTR 
reference, as described under "Result," 
comment, and continue. 



CHECK (identifier- list) : A statement prefix 
specifying this condition may only be 
applied to PROCEDURE or BEGIN statements. 

In the identifier list, each identifier 
is one of the following: 

a statement label constant 

an unsubscripted variable name rep- 
resenting a scalar, array, or 
structure 

an entry label 
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Note: The Identifier list cannot contain 
based variables, parameters, or data having 
the DEFINED attribute. 

Each item in the list is, in effect, 
enabled independently. It follows, there- 
fore, that each item in the list can also 
be disabled independently. In other words, 
a REVERT statement can be used to change 
the ON action for one or more items in the 
identifier list. 

If a structure identifier or an array of 
structures identifier appears in the iden- 
tifier list of a CHECK prefix, such a 
prefix is equivalent to a CHECK prefix 
whose list contains, in the order in which 
they were declared, the base elements of 
that structure or array of structures. For 
example, if P is defined by 

DECLARE 1P,2Q,2R,2S; 
then 

CHECK (P) 
is equivalent to 

CHECK (Q,R,S) 

Statem e nt Label Constant : For a statement- 
label constant, the condition is raised 
prior to the execution of the statement to 
which the label is prefixed. If the label 
is prefixed to a non- executable statement, 
no condition will be raised. 

Variables: For identifiers representing 
variables, the condition is raised whenever 
the value of the variable, or any 
generation of any part of the variable, has 
a value assigned to it by any statement 
within the scope of the prefix. 

The condition will be raised by the 
explicit reference to an identifier ID in 
the circumstances listed below, where ID 
is : 

an identifier in the list 

an identifier representing a structure 
or element contained by, or con- 
taining, an identifier in the list 

The reference to ID may be subscripted 
or qualified. 



The condition will be raised for ID only 



if: 



1. ID appears on the left hand side of an 
assignment statement. (This applies 
to assignment BY NAME even if the 
identifier mentioned does not appear 
in the final expansion of the state- 
ment. ) 

2. ID is set as a result of its appear- 
ance as an argument of a pseudo- 
variable that is used in a context for 
which CHECK is raised. 



3. ID appears as the control, variable of 
a DO statement (or ID is set as a 
result of a pseudo-variable appearing 
as the control variable of a DO loop) . 

4. ID appears in the data list of an 
edit- directed or list-directed GET 
statement . 

5. ID is assigned a value by data- 
directed input. If ID is a structure, 
CHECK will be raised each time an 
element of that structure is assigned 
a value. 

6. ID is specified as the receiving field 
in a REPLY, STRING, SET, INTO, or 
KEYTO option. If the statement 
specifying this option also has an 
EVENT option, the CHECK condition is 
raised for it at the time the WAIT 
statement is executed. Note that this 
applies to implied SET options, as 
well. 

7. ID is passed as an argument, with no 
dummy created, and control returns to 
the invoking block other than by a GO 
TO statement. 

However, the condition is NOT raised 
under any of the following circumstances: 

1. If the value of a variable defined 
upon ID or upon part of ID changes 
value in any of the ways described 
above. 

2. If a parameter or based variable which 
represents ID changes value. 

3. If ID is set by the INITIAL attribute. 

Each condition is raised after the 
statement which caused it to be raised has 
been executed. (Note that an IF statement 
is considered terminated just prior to the 
execution of the THEN or ELSE clause, and 
an ON statement just prior to the ON-unit 
specification.) If the statement has a 
task option, the condition is raised when 
the attaching task regains control. If the 
statement is a DO statement, the condition 
is raised each time control proceeds 
sequentially to the statement following the 
DO statement. If the DO specifies itera- 
tion, the condition is raised once for 
every iteration. 

If a statement causes a CHECK condition 
to be raised for several identifiers, then 
the conditions will be raised in the left- 
to-right order of appearance of the 
identifiers in the statement. 

Entry Names: For an entry name, the condi- 
tion is raised prior to each invocation of 
the entry name. The condition is raised 
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only if the entry name used in the invoca- 
tion has CHECK enabled for it. 



SYSTEM ACTION CONDITIONS 



Result; Continue. The statement is exe- 
cuted normally. 

Standa rd Sy stem Action: If the identifier 

is a statement label constant or a label, 
task, event, pointer, offset, or area vari- 
able or an entry name, only the identifier 
is printed on a debugging file. 

If the identifier represents data other 
than that mentioned above, the identifier 
and its new value are both printed on a 
debugging file in the format of data- 
directed output. 



LIST PROCFSSING CONDITIONS 



The following condition is always 
enabled and may not appear in a condition 
prefix. 



AREA : 



Thi! 



condition is raised when an 

attempt is made to allocate storage within 
an area defined by an area variable, and 
sufficient storage does not remain within 
the area. It can be raised by an ALLOCATE 
or assignment statement. 

R esult: On normal return from the on- unit, 
the reference to the area is reevaluated. 
Allocation is then attempted in this area. 



The following conditions are always ena- 
bled and cannot appear in a condition 
prefix. 



FINISH: 



Standard S ys tem Action : The 
tion is raised. 



ERROR condi- 



This condition is raised by execu- 
tion of a statement that would cause termi- 
nation of the major task of a PL/I program, 
that is, by a STOP in any task, an EXIT in 
the major task, or a RETURN or END in the 
initial external procedure of the major 
task. The condition also is raised by a 
SIGNAL FINISH statement in any task. The 
interrupt occurs in the task in which the 
statement is executed, and any on-unit 
specified for the condition is executed as 
part of that task. 

An abnormal return from a FINISH on-unit 
will avoid any subseguent task termination 
processes and permit the interrupted task 
to continue. 

On normal return from a FINISH on-unit, 
execution of the interrupted statement is 
resumed. 



Standard System , Action: Fxecution of the 
interrupted statement is resumed. 



Note : When the FINISH condition is raised 
by execution of a SIGNAL FINISH statement, 
normal return from the FINISH on-unit (or 
standard system action, if no on-unit is 
established) will cause execution to con- 
tinue with the statement following the a 
SIGNAL FINISH statement. 



PROGRAMMER- NAMED CONDITIONS 



CONDITION 



(identifier) : This condition is 

always enabled and may not appear in a 
condition prefix. The identifier is speci- 
fied by the programmer, and is EXTERNAL. 
The condition is raised by the execution of 
a SIGNAL statement having the same iden- 
tifier. 

Standar d S ystem Action: Comment and con- 
tinue. 



ERROR : This condition is raised either by 
a SIGNAL ERROR or by some error situation 
in the execution of the program. The 
abilities of different implementations to 
detect execution-time errors will vary; 
therefore, some of the conditions under 
which ERROR will be raised are implementa- 
tion defined. An abnormal return from an 
ERROR on-unit will permit the interrupted 
task to continue execution. The action for 
normal return, however, is implementation 
defined. 

Standard System Action: This action is 
implementation defined. 
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APPENDIX U: PERMISSIBLF KEYWORD ABBREVIATIONS 



Abbreviations are provided for certain 
keywords. The abbreviations themselves are 
keywords and will be recognized as synono- 
mous in every respect with the full key- 
words. The abbreviated keywords are shown 
to the right of the full keywords in the 
following list. 



ABNORMAL 


ABNT, 


ACTIVATE 


ACT 


AUTOMATIC 


AUTO 


BINARY 


BIN 


BUFFERED 


BUF 


CHARACTER 


CHAR 


COLUMN 


COL 


COMPLETION 


CPLN 


COMPLEX 


CPLX 


CONTROLLED 


CTL 


CONVERSION 


CONV 


DEACTIVATE 


DEACT 


DECIMAL 


DEC 


DECLARE 


DCL 


DEFINED 


DEF 


ENVIRONMENT 


ENV 


EXCLUSIVE 


EXCL 


EXTERNAL 


EXT 


FIXEDOVERFLOW 


FOFL 


INITIAL 


INIT 


INTERNAL 


INT 


IRREDUCIBLE. 


IRRED 


OVERFLOW 


OFL 


PICTURE 


PIC 


POINTER 


PTR 


POSITION 


POS 


PRECISION 


PREC 


PROCEDURE 


PROC 


REDUCIBLE 


RED 


SEQUENTIAL 


SEQL 


STRINGRANGE 


STRG 


SUBSCRIPTRANGE 


SUBRG 


UNALIGNED 


UNAL 


UNBUFFERED 


UN BUF 


UNDERFLOW 


UFL 


UNDEFINEDFILE 


UNDF 


VARYING 


VAR 


ZERODIVIDE 


ZDIV 
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APPENDIX 5: THE 4 8 -CHARACTER SET 



The characters that make up the 
48-character set are the same as those that 
make up the* 60- character set except for 
certain restrictions. 



The following 
included: 



characters 



are 



not 



Percent 

Colon 

Not 

Or 

And 

Greater Than 

Less Than 

Break character 

Semicolon 

Number sign 

Commercial At sign 

Question mark 

The following three 
replaced as indicated: 

60-Character Set 



# 
characters 



are 



4 8-Character Set 



// 



The two periods which replace the colon 
must be immediately preceded by a blank if 
the preceding character is a period. The 
two slashes that replace the percent symbol 
must be immediately preceded by a blank if 
the preceding character is an asterisk, or 
immediately followed by a blank if the 
following character is an asterisk. The 
sequence "comma period" represents a semi- 
colon except when it occurs in a comment or 



character string, or when it is immediately 
followed by a digit. 



The following character combinations, as 
used in the 6 0-character set, are replaced 
in the 4 8- character set by alphabetic equi- 
valents as indicated: 



60-Character Set 



48-Character Set 



> 


GT 


-»> 


NG 


>= 


GE 


1~ 


NE 


<= 


LE 


< 


LT 


1< 


NL 


1 


NOT 


1 


OR 



I! 
-> 



AND 
CAT 
PT 



The above words are "reserved" in the 
48-character set; that is, they must not be 
used as programmer-specified identifiers. 

In each case, one or more blanks must 
immediately precede the alphabetic operator 
if the preceding character would otherwise 
be alphameric, and one or more blanks must 
immediately follow if the following charac- 
ter would otherwise be alphameric. Thus, 
to indicate the comparison of the variables 
A6 and BQ2Y for inequality, one would write 
A6 NE BQ2Y, but not A6NEBQ2Y, A6 NEBQ2Y, or 
A6NE BQ2Y. As the equal symbol is usable, 
however, the comparison of these two varia- 
bles for equality may be written A6=BQ2Y. 

The break character, commercial at-sign, 
and number sign are not used and conse- 
quently may not be employed in identifiers. 
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INDEX 



+ picture character 70 

- picture character 70 

* picture charactesr 70 

$ picture character 70 



ACTIVATE statement 149; 14 5 
%DEACTIVATE statement 149,146 
^DECLARE statement 148-151,145 
%DO statement 157 
%END statement 148,145 
%GO TO statement 151,148 
%IF statement 152,148 
^INCLUDE statement 152 
%PROCEDURE statement 14 8 
%symbol 

identification of compile-time 
statements 145 

in character- string 14 5 



A format item 109 
A picture character 67 
Abbreviations of keywords 190 
ABNORMAL attribute 47 

as attribute of cell identifier 53 

assumptions when specified 51,60 

default for TASK type identifiers 42 
Abnormal termination (see Termination) 
ABS built-in function 158 

ACTIVATE (compile-time) statement 149,145 
Activation 

by %ACTIVE or %DECLARE statement 145 

of blocks 82 
Active block 82 
ADD built-in function 158 
Additive file attributes 96 
ADDR built-in function 172 

providing a pointer value 66,87 

variable as argument of 84 

variables declared with 49 
Aggregate 

expressions 34 

generation of variable 8 4 

order of evaluation of expressions 36 

types 21 
ALIGNED attribute 47 

as default attribute 42,60 

assumptions when specified 51 

LIKE attribute expansion 66 

simple defining 54 

with RETURNS attribute 7 2 
ALL built-in function 168 
ALLOCATE statement 116,86 

allocating based variable storage 
48,49,87 

allocating cell storage 53 

contextual declaration as area variable 
40 

contextual declaration as pointer 
variable 40 

creating based generation 84 



setting value of locator variable 67 

specifying controlled variable bounds 
57 

specifying size of controlled area 
variable 48 

with task variable 74 
Allocation 

of a variable 8 4 

of data and storage classes 8 5 

of parameters '81 

of storage 48,49,83 
ALLOCATION built-in function 173 

task variables as argument of 74 
Alphabetic 

characters 13 

extenders 13,41 

list of attributes 47 
Alphameric characters 13 
Alternative file attribute 96 
Ambiguous references 3 9 
ANY built-in function 168 
AREA attribute 48 

assumption for variable in OFFSET 
attribute 67 

default attributes for area type 
identifier 42 

in DECLARE statement 3 8 

with CELL attribute 53 

with GENERIC attribute 61 

with RETURNS attribute 72 
AREA condition 189 

based variable allocation 118 
Area size 

in ENTRY attribute 58; 7 9 

in ALLOCATE statement 117 

in DECLARE statement 117 

in REFER option 50 

of simple defined area 55 

parameters and arguments 79,80 
Area variable 29 

as target variable 120 

contextual declaration as 40,67 

generation of 84 

invalid format of INITIAL attribute 6 3 
Argument 

aggregate 35 

as subscripted variable 77 

correspondence with parameters 79 

dummy (see Dummy argument) 

entry name as 7 8 

in procedure reference 77 

of arithmetic built-in functions 158 

of mathematical built-in functions 16 3 

of string built-in functions 155 
Arithmetic attributes 44 

default attributes 42 

parameter defaults 75 

with RETURNS attribute 72 
Arithmetic conversions 31 

complex 118 

to bit string and character string 34 
Arithmetic data 25 
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coded (see Coded arithmetic data) 

in list-directed input 101 
Arithmetic operators 

list of 14 
Arithmetic operations 30,147 
Arithmetic built-in functions 158 
Arithmetic variable 27 

implict declaration of identifier as 41 

attributes of 44 
Array 21 

array variable in USES or SETS list 73 

as data-list elements 100 

bounds (see Array bounds) 

cross sections of 2 3 

dimension attribute 56 

expressions 34,35 

generation of variable 84 

interleaved 56 

label array 65 

list-directed input format 101 

manipulation built-in functions 168 

parameters 8 

of structures 22 

subscripted names 23 

table of operands and results 35 
Array bounds 21,56 

assumed for parameter 79 

declared with base-} variable 50 

in ALLOCATE statement 117 

in DECLARE statement 117 

in ENTRY attribute 58,79 

specified by REFER options 50 
Assignment (compile- time) statement 

150,148 
Assignment statement 119,16,115 

aggregate expressions 35 
Asterisk 

for bounds specifications 57,50,56 

in cross sections of arrays 21,56 

in dimension attribute 56 

in ENTRY attribute 7 9 

in INITIAL attribute 6 2 

in interleaved arrays 56 

in iSUB defining 55 

in simple defining 55 

in USES or SETS attribute 73 

parameters 7 5 

specifying bit and character length 52 

specifying parameters and controlled 
variables 5 2 

specifying storage area size 4 8 
Asynchronous operations 87 

compile-time input/output operations 
17 3 

data set accessed directly 114 

datci set accessed sequentially 114 
ATAN built-in function 16 3 
ATAND built-in function 163 
ATANH built-in function 164 
Attached task 8 9 
Attaching task 89 
Attributes 44,15 

alphabetic list of 47 

assignment to indentifiers 41 

default assumptions 41 

evaluated on entry to a block 83 

factoring of 39 

of a file 45,96, 97 



of structures 23 

witn compile-time statements 146,147 
AUTOMATIC attribute 4 9 

default for arithmetic type identifier 
42 

default for event name 5 8 

invalid with parameter 75 
Automatic storage 49,85 
Automatic variable 49 

shared between tasks 9 



B bit-string specifier 25 
B format item 109 
B picture character 
BACKWARDS attribute 51 

implied attributes 97 

invalid with OUTPUT and UPDATE 
attributes 64 
BACKWARDS option 135 
Base 

arithmetic data characteristic 25 

conversion table 32 

FIXED attribute assumed 61 

in arithmetic operations 30,31 
BASED attribute 49,87 

causing contextual declaration as 
pointer variable 4 0,6 6,67 

in DECLARE statement 3 8 

invalid with parameter 75 

with a structure 2 3 
Based-defined item 

in SETS and USES list 73 
Based storage 49,87 

built-in functions 172 
Based variable 49-51,87,111 

alignment attributes 4 8 

allocation of 116,133 

locator qualification 29 

reserving storage for 48 

termination of task 89 

with locator variable 66 
Basic language structure 13 
Basic program structure 16 
Begin blocks 

(see Block) 
BEGIN statement 12 3 

activation of begin block 82 

scope of condition prefix 91 
BINARY attribute 51 

as default attribute 42,41,61,72 
Binary constants 26 
Binary digits 13 

picture characters 68-70,178 
Bit 13 

BIT attribute 51 
BIT built-in function 155 
Bit-class data 56 

UNALIGNED default attribute 47 
Bit string 27 

concatenation 3 3 

conversions 33,34 

defaults for string type identifiers 42 

format item 109 

list-directed input 101 

list-directed output 103 

operations 32 

operators 14, 32 
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overlay defining 55, 47 

repetition factor 27,62,63 

varying 33 
Bit-string format item (B) 109 
Blanks, use of 16 
Block 18 

activation 8 2 

activation environment 8 3 

attributes evaluated on entry to 83 

causing procedure irreducibility 46 

condition pseudo- variables within 
blocks 95 

declaration in 37 

generations established on entry to 83 

inheritance of condition built-in 
functions 9 5 

recursive activation 8 5 

termination 82,8 5,132 
BOOL built-in function 155 
Bounds of arrays 

(see Array bounds) 
Braces 11 
Brackets 12 
BUFFERED attribute 52 

implied attributes 97 
BUFFERED option 135 
BUILTIN attribute 52 

identifier contextually declared with 
40 

invalid with ENTRY attribute 58,62 
Built-in function 76,154 

alignment attribute default 48 

BUILTIN attribute 52 

condition built-in functions 9 5 

contextual declaration as 40 

implicit declaration as name of 41 

name 15 

with aggregate arguments 3 5 
BY clause" 126,127 

BY NAME option of assingment statement 
121,122 



C format item 109 

CALL option of INITIAL attribute 62,67 

subroutine reference 7 6 
CALL statement 123,52 

contextual declaration as event 5 8 

contextual declaration as task 40 

creating tasks 8 9 

EVENT option 58,59 

initiating new control of task 9 

sequence of control 116 

subroutine reference 76 

TASK option 74,40 

task Vciriable priority 2 8 

USES attribute 7 3 
CEIL built-in function 15 9 
Cell 29 

initial attribute 62 

parameter 80 
CELL attribute 52 
CHAR built-in function 155 
CHARACTER attribute 51 

in DECLARE statement 3 8 
Character-class data 56 

UNALIGNED default attribute 47 
Character picture specification 65 



Characters 

alphabetic 13 

alphameric 13 

special 13 
Character sets 

60-character set 13 

48-character set 191 
Character string 27 

concatenation 3 3 

conversions 3 4 

defaults for string type identifiers 42 

defining formats with PICTURE attribute 
67 

drifting string 70 

format item 109 

list-directed input 101 

list- directed output 103 

overlay defining 55,47 

picture characters 177 

repetition factor 27,62,63 

varying 33 
Character-string format item (A) 109 
CHECK condition 187,92,184 

enabled by programmer 9 2 

limitations 17,50 

raised after assignment 121 

scope 91 
CLOSE statement 12 4 

file with RECORD attribute 72 

file with STREAM attribute 71 
Coded arithmetic data 25, 102 

conversion in list-directed transmission 
101,102,103 

in arithmetic operations 30 
Collating sequence in PL/I 15 
COLUMN format item 110 
Comments 16 

Comparison operations 33 
Comparison operators 14 
Compile-time 145 

expressions 147 

loop expression 14 6 

null statement 147 

operands 147 

procedures 148 

procedure statements 145 

statements 149 

SUBSTR built-in function 149 

variables 146,147 
COMPLETION built-in function 173 

accessing completion value of event 
variable 58,88 
COMPLETION condition 142 
COMPLETION pseudo-variable 174 

erroneous use 59 

to set completion value of inactive 
event variable 59 
Completion value 58,88 

EVENT option of DELETE statement 125 

EVENT option of DISPLAY statement 126 

EVENT option of READ statement 139 

EVENT option of REWRITE statement 141 

EVENT option of WRITE statement 144 

on execution of CALL statement 124 

on return from FINISH on-unit 129 

on task termination 8 9,124 

on sub-task termination 140 
Complex argument 166 



Index 
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COMPLEX attribute 54 

FLOAT attribute assumed 61 

with numeric character data 68 
COMPLEX built-in function 159 
Complex format item (C) 109 
COMPLEX pseudo- variable 175 
Compound statements 17 
Computational built-in functions 155 
Computational conditions 18 4 
Concatenation operations 33 
CONDITION condition 189 ,94 

contextual declaration as condition 
name 40 
Condition built-in functions 95,170 
Condition name 17 

contextual declaration as 40 

EXTERNAL attribute assumed 60 
Condition prefixes 17 

invalid with ENTRY statement 129 

purpose 91 

scope of 91 

to IF statement 13 3 
Condition pseudo-variables 95 
Condition type of identifier 

default attribute 42 
Conditions 16 

(see also ON conditions) 
CONJG built-in function 159 
Constant 21 

arithmetic 26,27 

initialization 6 

notation 11 

statement^label 28 
Contextual declarations 4 
Control 

format items 110 

of a program 82 

of statement sequence 116 

passed to procedure at entry point 75 

transfer of by GO TO 44,132 
Control format items 110 
Control statement 115 
CONTROLLED attribute 49 

as assumption of ENTRY attribute 58 

as structure attribute 2 3 

with parameter 75 
Controlled storage 49,86 
Controlled variable 

allocation of 116 

shared between tasks 9 

termination of task 89 
Conversion 

arithmetic to bit-string 3 4 

arithmetic to character-string 34 

base 30,32 

bit-string to arithmetic 3 4 

bit-string to character-string 33 

character- string to arithmetic 34 

character-string to bit-string 34 

coded arithmetic 102,103 

floating-point to fixed-point 32 

form 30 

in arithmetic operations 3 

in bit- string operations 3 2 

in comparison operations 3 3 

in concatenation operations 33 

in exponentiation operations 31 

integer 32 



list-directed input and output 101,102 

mode 30, 31 

numeric to coded arithmetic 30 

offset to pointer 66 

pointer to offset 67 

scale 30,32 

type 33 
CONVERSION condition 184,170 

disabled by programmer 93 

raised by picture specification 177 
COPY option 131 
Correspondence 

of parameters and arguments 79 
COS built-in function 164 
COSD built-in function 16 4 
COSH built-in function 16 4 
COUNT built-in function 174 
CR picture character 181 
Creation of tasks 89 
Credit sign picture character 181 
Cross sections of arrays 23 
Currency symbol picture character 180 



Data 21 

aggregates 21 

area 29 

arithmetic 25 

attributes 44 

attributes permitted with PROCEDURE 
statement 136 

attributes with an ENTRY attribute 12 9 

cell 29 

character set 15 

declaration statement (see DECLARE 
statement) 

description 37-74 

elements 21-29 

event 28 

format items 107 

label 2 8 

list (see Data list) 

locator 28 

manipulation 30-36 

naming 2 3 

organization 21 

problem 25 

program control 28 

set 96 

sharing between tasks 9 

sterling data variable 70 

storage allocation for data variables 
49, 85 

specifications 99 

specification statements 115 

stream transmission 98 

string 27 

task 28 

transmission statements 115 
Data- directed 

data lists 99 

input 104 

length of data fields 105 

output 105 

specification 104 

transmission 98,104 
DATAFIELD built-in function 95,170 
Data list 99 
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data-directed transmission 98 

edit-directed transmission 99 

list-directed transmission 98 
DATE built-in function 174 
DB picture character 181 
DEACTIVATE ( compile- time) statement 

149,146 
Debit sign picture character 181 
Debugging 

statements 115 
DECIMAL attribute 51 

as default attribute 41; 42,58, 60, 72 
DECIMAL built-in function 159 
Decimal constants 2 6 
Decimal digits 13 

picture character 67-70,17 8 
Declarations 35 

built-in 41 

contextual 4 

explicit 37 

external 4 2,46 

implicit 41 

multiple 41 

of structures 38 

priority of 41 

scope of 4 2 
DECLARE (compile-time) statement 

148-151,145 
DECLARE statement 38 

explicit declarations 37 

factoring 39 

parameter attributes 7 5 

pointer variable declaration 66 

sequence of control 116 

specifying file attributes 41 

with EVENT attribute 5 8 

with REFER option 50 

with RETURNS attribute 7 2 
Default attributes 41 

in PROCEDURE statement 137 

parameter 75 
DEFINED attribute 5 4 

assumptions when specified 51 

distinction from CELL attribute 52 

invalid with parameter 7 5 

parameter as base identifier 75 

with AREA attribute 48 
Defining 

INITIAL attribute invalid for defined 
variables 6 2 

iSUB 55,47 

order of evaluation 56 

parameter as base identifier 7 5 

simple 54,47 

string overlay 55, 47 
Definitions (see Index of Definitions) 
DELAY statement 125 
DELETE statement 12 5 

attributes deduced 9 7 

execution in locking task of 6 

SEQUENTIAL files 113 
Delimiters 14 
Descendance, dynamic 83,90 
Designator, statememt- label 2 8 
Digit and point specifiers 17 8 
Digits, binary and decimal 13 
DIM built-in function 169 
Dimension attribute 5 6 



assumptions when specified 51,58, 

in ENTRY parameter attribute list 57 

what it specifies 21 
Dimensions 

of array (see Dimension attribute) 

of cell 53 
DIRECT attribute 57 

file 113 

implied attributes 97 

implied by EXCLUSIVE 6 

implies KEYED 65 
DIRECT option 135 
DISPLAY statement 126 

associated with event variables 88 
DIVIDE built-in function 159 
DO (compile-time) statement 151 
DO group 18 

go to statement 132 

in compile-time procedure 148 
DO statement 126,18 

sequence of control 116 
Drifting picture characters 70,180 
Dummy argument 77 

aggregate type 35 

allocation 79 

correspondence with parameters 79 

for array-label variable parameter 80 

for array parameter 80 

in compile-time procedure 149 

invalid with task variable 74 

specified by ENTRY attribute 57 

unmatched alignment attributes 48 
Dummy iSUB variables 5 5 
Dummy variable 

(see Dummy argument) 
Dynamic 

allocation of storage 85 

descendance 8 3,89 

encompassing 83 

program structure 8 2 



E format item 108 

E picture character 6 8,18 2 

Edit-directed transmission 

data lists 99 

FORMAT statement 129 

input and output 106 

specification 106 

transmission 99 
Editing characters 68-70 
Element 

data 21-29,47 

data items 21 

of a structure 22 

of an array 21, 22 

program 18 

variables 21 
ELSE clause 

in %IF statement 

in IF statement 133 
EMPTY built-in function 17 2 
Encompassing, dynamic 83 

reestablishing action specification 140 
END (compile-time) statement 148,145 
END statement 128,19 

as RETURN statement 14 

sequence of control 116 
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terminating begin block 82 

terminating procedure block 8 3 

terminating subroutine procedure 77 

terminating task 8 9 

use of 19 
ENDFILE condition 185 
ENDPAGE condition 185,138 
ENTRY attribute 57 

declaration by label prefix 39 

defaults for ENTRY type identifier 4 2 

describing various parameters 79,80 

implied by SETS and USES attributes 73 

specifying generic entry names 62 

task variable as parameter 74 
Entry name 18,58 

as argument in procedure reference 
78,77 

assumed attributes 60 

attributes 4 5 

contextual declaration 4 

generic 76 

GENERIC attribute 61 

in compile-time procedure 148 

optimization attributes 64,72 

PROCEDURE statement 136 

RETURNS entry name attribute 7 2 

with BUILTIN attribute 5 2 
Entry parameter 75,80 
Entry point 

activation of procedure block 82 

generic entry name 76 

parameter lists 75 

primary 18,136 

secondary 18 

secondary defined by ENTRY statement 75 

use of ENTRY attribute 5 7 
ENTRY statement 129 

attribute assumptions 39,5 8 

defining secondary entry points 18,75 

identifier in parameter list 40 

parameters 7 5 

RETURNS attribute list 7 2 

sequence of control 116 

specifying attributes for function 
value 76 

task variable as parameter 74 
Environment 

of block activation 83 

of label constant 84 
ENVIRONMENT attribute 5 8 
Equivalence 

storage 52 

data 52 
ERF built-in function 164 
ERFC built-in function 164 
ERROR condition 189,170 

event 88 

GET statement 131 

PUT statement 137 
Evaluation 

of argument subscripts 77 

of ENTRY attribute expressions 58,79 

of expressions 3 5,26,82 

of RETURNS attribute specifications 72 
Event 88 

termination of task 89 
EVENT attribute 58 

defaults for EVENT type identifier 42 



EVENT option 

contextual declaration as event 
variable 40,58 

creation of tasks 89 

in CALL statement 123 

in DELETE statement 125 

in DISPLAY statement 126 

in READ statement 138 

in REWRITE statement 141 

in tfRITE statement 14 3 

setting event active then incomplete 88 
Event variable 28,58,59,88 

as target variable 121 

completion value (see Completion value) 

contextual declaration 4 

status value (see Status value) 
EXCLUSIVE attribute 59,114 

implied attributes 97 

locked records 114 
EXCLUSIVE option 135 
EXIT statement 129 

sequence of control 116 

terminating a task 59,82,89 

terminating subroutine procedure 77 
EXP built-in function 165 
Explicit opening of file 96 
Exponent picture characters 182 
Exponent specifiers 182 
Exponentiation 

in fixed-point arithmetic operations 31 

in numeric picture specification 68 
Expression 30 

aggregate 34, 36 

as argument in procedure reference 77 

evaluation of 3 5,26 

prologue evaluation 8 2 

scalar 30 
Extenders alphabetic 13,41 
EXTERNAL attribute 60,42 

as implied attribute 3 9 

as structure attribute 2 3 

as default for ENTRY type identifier 42 

invalid use 50, 54 
External declaration 42,46 
External name 19 

attributes of 38 

scope of 42,43 
External procedure 19 

invoked by procedure reference 75 

irreducible and reducible 64 



F format item 108 

F picture character 6 8,18 2 

Factor 

iteration 62 

repetition 67,68 

scale 25,68 
Factoring of attributes 3 9 

invalid factoring with ENTRY attribute 
58 
Fields 

numeric 25,30 

picture character 67 

sterling picture specification 70 
File 

attributes 45,96-98 

closing 124 
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function of 63 

kinds of data transmission for 71 

list-directed output tabs 101 

opening 96 

parameter 75,81 

preparation statements 115 

sharing between tasks 90 

termination of task 89 
FILE attribute 60 
File name 96 

as argument in procedure reference 77 

contextual declaration 4 

EXTERNAL attribute assumed 60 
FILE option 

contextual declaration as file name 
40,60 

in CLOSE statement 124 

in DELETE statement 12 5 

in GET statement 131 

in LOCATE statement 13 3 

in OPEN statement 135 

in PUT statement 137 

in READ statement 138 

in REWRITE statement 141 

in UNLOCK statement 14 2 

in WRITE statement 143 
FINISH condition 189,170 

raised by EXIT statement 129 

raised by RETURN statement 140 

raised by STOP statement 142 
FIXED attribute 60 

as default attribute 41,42,51,72 
FIXED built-in function 160 
FIXEDOVERFLOW condition 185,184 

disabled by programmer 9 3 
Fixed-point arithmetic data 25,26,31 

precision of results 31 
Fixed- point format item (F) 108 
FLOAT attribute 6 

as default attribute 41,42,51,58,72 
FLOAT built-in function 160 
Floating-point format item (E) 10 8 
Floating-point data 25 

constants 26 

conversion to fixed-point data 32 

results 31 

FLOOR built-in function 16 
Form conversion 30 
Format items 107,110,111 
Format list 107 , 99, 111 
Format of PL/I program 13 
FORMAT statement 129,110 

sequence of control 116 

FREE statement 130,8 6 

contextual declaration of area variable 
40 

freeing based variables 49,87 

freeing cell storage 53 
FROM option 

in REWRITE statement 141,113 

in WRITE statement 143 
Function 

(see Function procedure) 
Function, built-in 154 
Function procedure 76,77 

termination 140 
Function reference 76 



contextual declaration as entry name 40 
compile-time 14 5,14 8 



G picture character 7 0,18 2 
Generation 

established on entry to a block 83 

of a variable 84 
GENERIC attribute 61 

defining generic procedure name 76 

entry name 58 
Generic entry name 76 
GET statement 131,96 

attributes deduced 97 

without file or string option 114 
GO TO (compile-time) statement 151,148 
GO TO statement 132 

invalid to transfer control to FORMAT 
statement 130 

terminating a block 83 

transfer of control 44,77,116 

transfering control to statement in DO 
group 128 
Graphics 

for alphabetic characters 13 

for operators 14 

for separators and other delimiters 14 
Group 17 



H picture character 182 
HBOUND built-in function 169 
Heading statement 18 
HIGH built-in function 156 



I imaginary constant representation 27 

I picture character 70,181 

I through N identifier initial letters 

implicit declarations 41,42,60 
Identification of compile-time statements 

145 
Identifiers 15,37 

allocation of 117 

as parameters 40,41 

assignment of attributes 41 

contextual declarations 40,58 

implicit declarations 41 

unqualified 40 
IF (compile-time) statement 152,148 
IF statement 133 

scope of condition prefix 91 
IGNORE option 138,113 
IMAG built-in function 16 
IM&G pseudo- variable 175 
Imaginary arithmetic constant 27 
Imaginary number 

in COMPLEX attribute 5 4 
Implementation-defined 

area size default value 48 

area size expression 4 8 

binary value 58 

PL/I collating sequence 15 

entry point identified by OPTIONS 
option 82 

evaluation order of based variable 
bounds, lengths, and sizes 118 

ENVIRONMENT attribute 5 8 
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length of identifiers . 15 

lengths and sizes 118 

order of conditions and interrupts 1 84 

order of initialization for based 
variables 118 

precision attribute defaults 71 

precision of event variable fixed binary 
value, 58 

PRIORITY option evaluated precision 124 

syntax of OPTIONS option- list 136 

tabs for PRINT files 101 

task priority value precision 74 
Implicit declaration 41 
Implicit opening of file 97 

by DELETE statement 125 
IN option 117 

based variable storage 4 8 

contextual declaration as area variable 
40,4 9 

with FREE statement 130 
INCLUDE (compile-time) statement 152 
INDEX built-in function 156 
Infix operators 30 

with aggregate operands 34 
INITIAL attribute 6 2 

assumptions when specified 51,60 

contextual declaration as entry name 4 

in DECLARE and ALLOCATE statements 118 

in locator declarations 67 

initialization of REFER option 
variables 50 

invalid use 54,65 

with area variables 48 

with based variable 50 

with CELL attribute 53 

with LIKE attribute 66 
Initial letter of identifier 

default attributes 41 
Initialization 

(see INITIAL attribute) 
INPUT attribute 63 
Input format 

list-directed 101 
INPUT option 135,96 
Input/output 96 

conditions 185,184 

statements 115 
Insertion picture characters 179 
Interleaved arrays 56 ' 
INTERNAL attribute 60,41 

as default attribute 4 2 

assumed for parameters 75 

label prefixes 4 

major structure names 23 
Internal name 4 3 

declaration of 35 
Internal procedure 19 

invoked by procedure reference 75 
Interrupts 91 

CHECK condition 92 

error control and debug statements 115 

investigation of 9 5; 170 

multiple 184 

ON statement 92 
INTO option 138; 112., 11 3 
IRREDUCIBLE attribute 6 4,46 

as default for ENTRY type identifier 42 

ENTRY attribute implied 57 



with SETS and USES attributes 73 
Irreducible procedure 46 
iSUB defining 55,54 

alignment attributes 4 7 

parameter as base identifier 75 

with AREA attribute 4 8 
Iteration 

factor 6 2 

in format list 107 

specification 6 2 



K picture character 68,69,182 

Key 

direct and sequential files 57 

KEY condition 186 

KEY option 

in DELETE statement 12 5 

in READ statement 138 

in REWRITE statement 114,141 

in UNLOCK statement 142 

specified by KEYED attribute 64 

KEYED attribute 64 

implied by EXCLUSIVE attribute 60 
RECORD attribute implied 97 
SEQUENTIAL and DIRECT files 113 
with direct and sequential files 57 

KEYED option 135 

KEY FROM option 

in LOCATE statement 13 3 
in WRITE statement 114,143 
specified by KEYED attribute 6 4 

KEYTO option 138,64 

Keywords 15 

abbreviations of 190 
separating keywords 15 

Known names and labels 44 



Label 17 

array 6 5 

constant environment 84 

following END statement 18,128 

prefixes 17,37,39 

statement 28,17,65 

with ENTRY statement 129 

with FORMAT statement 129 
LABEL attribute 65 

defaults for LABEL type identifier 42 
Label variable 65 

as target variable 121 

in GO TO statement 132 

parameter and argument correspondence 
80 

with INITIAL attribute 6 3 
LBOUND built-in function 169 
Length 

of data directed data fields 106 

(see also String length) 
Length attribute 51 

evaluation with RETURNS attribute 72 
LENGTH built-in function 156 
Levels 

of cells 29,53, 

of structures 22,3 8,66 
LIKE attribute 65 
LINE format item 110 
LINE option 137 
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with PRINT attribute 71 
LINENO built-in function 174 
LINESIZE option 135,136 
List of parameters 75 
List- directed 

data lists 99 

input conversion 102 

input format 101 

output format 101 

specification 101 

transmission 98 
List-processing conditions 18 9,18 4 
locator data 28 

defaults for locator type identifiers 
42 

invalid conversion 6 7 
LOCATE statement 133 

allocating based variable in buffer 87 

attributes deduced 97 

contextual declaration as pointer 
variable 40 

creating based generation 84 

freeing based variable in buffer 87 

RECORD attribute assumed 7 2 

SEQUENTIAL attribute assumed 57 

setting value of locator variable 67 
Locator qualifier 29,87 

contextual declaration as pointer 
variable 40,67 

reference to based variable 49,66 
Locator variable 66 

identifying allocated based variable 
generation 118 

invalid format of INITIAL attribute 63 

operators and operands 3 3 

reference to based variable 50 

setting the value 67 
Locking records 59,114 

READ statement 139 
LOG built-in function 165 
LOG10 built-in function 165 
LOG2 built-in function 165 
LOW built-in function 156 
Lower bound 21,56 



M picture character 70,182 
Major structure 22,23,3 8 
Major task 

(see Task) 
Manipulation of delta 30-36 
Mathematical built-in functions 163 

as argument in procedure reference 77 
MAX built-in function 160 
Merging of file attributes 97 
MIN built-in function 161 
Minor structure 22,23,3 8 
Minus sign (-) picture character 70 
Miscellaneous built-in functions 173 
Mixed characteristics in arithmetic 

operations 30 
NOD built-in function 161 
Mode 26 

assumed attributes 61 

COMPLEX and REAL attributes 5j 

conversion 30,31 
Modification of source program 
(compile-time) 145 



Multiple allocations 

of same controlled variable 4 9 
Multiple declarations 39 
Multiple interrupts 184 
MULTIPLY built-in function 161 
Multitasking built-in functions 173 



Name 

assignment of attributes 41 

basic rule on use of 44 

built-in function 15,4 

cell (see Cell) 

condition (see Condition name) 

declared in compile-time procedure 14: 

entry (see Entry name) 

establishing identifier as a name 37 

external (see External name) 

file (see File name) 

generic entry 76 

internal (see Internal name) 

Known 4 4 

procedure 18 

Qualified (see Qualified name) 

Simple 2 3 

Subscripted 2 3 

subscripted qualified 24 

to specify scope of 6° 
NAME condition 186,170 

data-directed transmission 104 
Naming 

(see Name) 
NO with condition names 17,91 
NOLOCK option 60,138,139 
NORMAL attribute 4 7 

as default for various identifier 
classes 42 

assumptions when specified 51,60 
Notation 

constant 11 

syntax 11 

variable 11 
NULL built-in function 17 2 

providing a pointer value 66 
Null field 

in list-directed input format 101 
Null statement 134,153 
Null string 27 

assigned when no data set user label 
124 

in condition built-in functions 95 
NULLO built-in function 172 

providing an offset variable value 66 
Numeric bit data 67 # 68 

picture characters 177 
Numeric character data 67,68 

list- directed output 103 

picture characters 177 

precision 70 
Numeric field 25 

conversion to coded form 30 
Numeric picture specification 67 



Object program 

optimization using LABEL attribute 65 
OFFSET attribute 6 6 
OFFSET built-in function 172 
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Offset variable 28,111 

as target variable 121 

contextual declaration as 40, 49 

parameter 80 

(see also Locator variable) 
ON conditions 184,91 

built-in functions 170 

in REVERT statement 140 

programmer defined 91, 94 

standard action 93 
ON statement 134,92 

contextual declaration of FILE 
attribute 6 

scope of condition prefix 91 

sequence of control 116 

to test action specification 141 
ONCHAR built-in function 170,95 
ONCHAR pseudo- variable 175 
ONCODE built-in function 170,95 
CNCOUNT built-in function 171; 95 
ONFILE built-in function 171, 95 
QNKEY built-in function 171,9 5 
ONLOC built-in function 171; 9 5 
CNSOURCE built-in function 171,95 
CNSOURCE pseudo- variable 175 
On-unit 134 

environment of an activation of 84 

return from 89 
OPEN statement 135,39,96 

file attributes in option list 45 

file with RECORD attribute 72 
Opening a file 96 
Operand types 

priority and conversion 33 
Operations 

arithmetic 30,147 

asynchronous 58,87 

bit-string 3 2 

comparison 3 3 

concatenation 33 

interrupt 91 

prefix 31 

record transmission 113 

synchronous 87 
Operators 14 

aggregate operands 32 

infix 30 

locator variable operands 67 

prefix 30, 31 

priority of 36 
Optimization attributes 4 5 
Option 16 
OPTIONS option 

in BEGIN statement 123 

in PROCEDURE statement 136 
Order 

of evaluation (defining) 5 6 

row-major 62 
Organization of data 21 
Output 

(see Input/output) 
OUTPUT attribute 63 

implied by PRINT attribute 71 
Output format, list- directed 101 
OUTPUT option 135 
OVERFLOW condition 185,184 

disabled by programmer 9 3 



Overlay defining., string 55 
Overpunch picture characters 70,181 



P format item 138,109 

PAGE format item (P) 138,109 

PAGE option 137 

with PRINT attribute 71 
PAGESIZE option 135,136,138 

with PRINT attribute 71 
Parameter 75 

allocation 81 

area 80 

array 8 

array bounds 57 

array-label variable 8 

as argument 77 

attributes of entry point 57 

cell 80 

correspondence with arguments 79 

entry 8 

explicit declaration as 40; 37 

file 81 

label variable 65,80 

offset-variable 80 

pointer- variable 8 

scalar 79 

scalar-label variable 80 

structure 80 
Parameter list 

(see Parameter) 
Parentheses 14 

contextual declaration as file name 4 

evaluation of expressions 36 
Pence field 70,183 
PICTURE attribute 67 

instead of CHARACTER attribute 52 

invalid use 51; 52; 60; 71, 68 

with RETURNS attribute 72 
Picture characters 177 

(see also PICTURE attribute) 
Picture format item (P) 109 
Picture separators 70 
Plus sign (+) picture character 70 
Point specifier for pictures 178 
POINTER attribute 66 

contextual declaration 51 

providing a pointer value 66 
POINTER built-in function 172 

freeing pointer-qualified variable 13 
Pointer qualifier 66 
Pointer variable 28,4 9,111 

contextual declaration as 40 

parameter 80 

pointer value assigned 133 

as target variable 120 

(see also Locator variable) 
POLY built-in function 16 9 
"popped up" storage 49,85,86,117 
POSITION attribute 55; 54 
Positioning format items 110 
Positioning statements 139 
Pounds field 7C, 18 2 
Precision 71 

apparent precision 26 

default for arithmetic type identifier 
42 

in arithmetic operations 30,31 
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numeric field 25 

of arithmetic data 2 6 

of numeric character variable 70 

of sterling numeric character data 7 
Precision attribute 71 
PRECISION built-in function 161 
Prefix 

label 17,37,39 

condition (see Condition prefixes) 

operators 30, 31, 32 
Preprocessor 14 5 
Primary entry point 18 
PRINT attribute 71 

as default 114 

implied attributes 9 7 

invalid use 64,72 
PRINT file 

list-directed output tabs 101 
PRINT option 135 
Printing format items 110 
Priority 

of establishment of declarations 41 

of operand types 3 3 

of operators 36 

of tasks 74, 28, 8 9 

value in task variable 7 4 
PRIORITY built-in. function 17 3,74 
PRIORITY option 

creation of tasks 89 

in CALL statement 12 3 
PRIORITY pseudo- variable 17 5,28,7 4 

task priority 89 
Problem data 25 

attributes 4 4 
Procedure 75 

blocks (see Block) 

environment of activation of 8 4 

external 19, 75 

function 76 

internal 19,75 

name 18 

recursive 49,81 

reference 75 

subroutine 76 

termination 139 
PROCEDURE (compile-time) statement 148 
PROCEDURE statement 136 

assumptions due to label prefixes 39,58 

explicit declaration of parameters 75 

scope of condition prefix 91 

sequence of control 116 

specifying a list of parameters 75 

specifying attributes for function 
value 76 

task variable as parameter 7 4 
Processing 

asynchronous 28 
PROD built-in function 17 
Program 20 

control. 8 2 

control data 28,42 

dynamic program structure 8 2 

element 16,18 

execution initiated 82 

interrupt 17 

region 18 

structure 16 

structure statements 116 



switches (event names) 58 

testing 92 
Program checkout conditions 187,184 
Programmer- def ined 

entry name as argument 77 

interrupts 92,9 3 

ON-conditions 91,94,184,189 

ON statement 134 
Programmer- named 

(see Programmer-defined) 
Programmer-written function 

returns scalar value 3 
Prologue 8 2 
pseudo-variables 174 

condition pseudo-variable 95 
push-down stack 86 

"pushed- down" storage 49,85,86,117 
PUT statement 137,96 

attributes deduced 97 

without file or string option (SYSIN) 
114 



Qualified name 24,39 

subscripted 24 
Qualifier 

locator (see Locator qualifier) 

pointer 66 



R format item 110,130 
R picture character 70,181 
Range of a variable 21 
READ statement 138,9 6 

allocating based variable 87 

attributes deduced 97 

contextual declaration as pointer 
variable 40 

creating based generation 8 4 

file with RECORD attribute 72 

IGNORE option 113 

INTO option 138,112,113 

positioning SEQUENTIAL files 113 

referring to EXCLUSIVE file record 60 

setting value of locator variable 67 

with EXCLUSIVE file 114 
Real arithmetic constant 26 

precision of 26 
REAL attribute 54 

as default attribute 41,42,51,58,61,72 
REAL built-in function 16 2 
Real number 54 
RE&L pseudo-variable 175 
RECORD attribute 71 

associated with event variables 88 

implied by DIRECT and SEQUENTIAL 57 

implied by EXCLUSIVE 6 

transmission of area data 48 
RECORD condition 187 
RECORD input/output 96,111 
RECORD option 135 
Record status statements 115 
Record transmission 111 

operations 113 

statements 112 
RECURSIVE option 81,136 
Recursive procedure 4 9,81 
REDUCIBLE attribute 64,46 
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as default for ENTRY type identifier 4 2 

ENTRY attribute implied 57 
Reducible procedure 4 6 
REFER option 50, 

specifying a bound 5 7 

with ALLOCATE statement 118 
Reference 85 

ambiguous 39 

defined 56 

function 76 

procedure 75 

subroutine 7 6 

to a qualified name 39 
Region of program (scope) 18 
Release of storage 49„85 
Remote format item 110 
REPEAT built-in function 157 
Repetition factor 

in numeric picture specifications 68 

string 27,62-6 3 

with picture characters 67 
Repetitive specification in data lists 99 
REPLY option 126 
Rescanning and replacement 14 5 
Results 

of aggregate operations 34 

of arithmetic operations 3 
RETURN statement 139 

conversion of value specified in 137 

invalid use in ON statement 134 

sequence of control 116 

terminating function procedure 76 

terminating procedure block 8 3 

terminating subroutine procedure 77 

terminating task 8 9 
RETURNS attribute 7 2 

ENTRY attribute implied 57 
REVERT statement 140,94 
REWRITE statement 141,114 

attributes deduced 97 

execution in locking task of 6 

RECORD attribute assumed 7 2 

SEQUENTIAL files 113 

statement sequence in UPDATE file 64 
ROUND built-in function 162 
Row- major order 

assignment of initial constant values 
62 



S picture character 7 
Scalar 

expressions 30 

items 21 

parameter 79 

variables 21 
Scale 

conversion 30,32 

differing operands 30, 31 

FIXED and FLOAT attributes 60 

invalid use of PICTURE attribute 6 8 

of arithmetic data 2 5 

of arithmetic variables 60 
Scale factor 25,71 

FIXED and FLOAT attributes 60 
Scaling factor ( F) 68,182 
Scanning compile- time procedures 148 
Scope 



of compi le-time name 147 

of condition prefix 91 

of declarations 42,41 

of declarations within a block 83 

of external names 4 2 

of names 42,60 
Scope attributes 4 6,60 

as attributes of data 4 4 

AUTOMATIC as default attribute 51 

INTERNAL default for event names 58 

invalid with parameter 75 
SECONDARY attribute 7 2 

assumptions when specified 51,58 
Secondary entry point 18 
Self-defining data 

using REFER option 5 
Separating keywords 15 
Separators 14,182 

Sequence of statement control 116 
SEQUENTIAL attribute 57 

file 113 

implied by BACKWARDS attribute 51 

RECORD attribute implied 97 

with UPDATE attribute 64 
SEQUENTIAL option 135 
SET option 

allocating based variable 87 

assumed to specify locator variable 11* 

contextual declaration as pointer 
variable 66, 40 

in LOCATE statement 13 3 

in READ statement 138 

setting value of locator variable 67 
SETS attribute 72,46 

defaults for ENTRY type identifier 42 

ENTRY attribute implied 57 

with GENERIC attribute 61 

with optimization attributes 64 
Shillings field 70,183 
SIGN built-in function 16 2 
Sign characters in numeric picture 

specification 68,69,180 
Signed constant 21 
SIGNAL statement 141,115 

contextual declaration as 
condition- name 40 

sequence of control 116 
Significant allocations 48 
Simple name 2 3 
Simple defining 54 

alignment attributes 4 7 

parameter as base identifier 75 

with AREA attribute 4 8 
SIN built-in function 165 
SIND built-in function 16 5 
SINH built-in function 165 
Size (see Area size) 
SIZE condition 185,184 

enabled by programmer 9 2 
SKIP format item 110 
SKIP option 131 

in GET statement 131 

in PUT statement 137 
SNAP option 134 
Spacing format item (X) 110 
Special characters 13 
Specifiers 

picture character 178 
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SQRT built-in function 166 
Standard system action 93,184-189 

conditions 189; 184 

reestablishing action specification 140 

storage allocation 116 

stream transmission 111 
Statements 13,16,115 

alphabetic list of 116 

assignment 16,115 

classification 115 

compile-time 148 

compound 17 

control 115 

data declaration (see DECIARE 
statement) 

data specification 115 

data transmission 115 

error control and debug 115 

file preparation 115 

heading 18 

identifier 15,16 

input/output 115 

label data 28,17 

null 16 

positioning 139 

program structure 116 

record status 115 

record transmission 112 

sequence of control 116 

simple 16 
STATIC attribute 49 

default for arithmetic type identifier 
42 

invalid use of INITIAL attribute 63,65 

invalid with parameter 75 

use with label variables 6 5,63 

with a string 52 

with airray bounds 57 

with iteration factor 62 
Static storage 49,85 

allocation of 85 

specification of area size 48 
Static variable 49 

shared between tasks 9 
STATUS built-in function 17 3 

accessing status value of event 
variable 58,88 
STATUS pseudo-variable 176 

as target variable 121 

to set status value of inactive event 
variable 59 
Status value 58,88 

on execution of CALL statement 124 

on file closure 124 

on return from FINISH on-unit 129 

on sub- task termination 140 

on task termination 89,124 
Sterling pictures 70,182 

fixed-point constants 26 
STOP statement 142 

sequence of control 116 

terminating subroutine procedure 77 

terminating task 83; 89 
Storage 

ALIGNED and UNALIGNED attributes 47 

allocation of 48,49,83 

allocation statements 116 

AREA attribute 48 



attributes (see Storage class 
attributes) 

CELL attribute 52 

classes 85 

control of allocation of 85 

economy 47 

efficient storage not required 72 

equivalence 52 

for allocation of based variables 4 8 

"popped- up" 49 

"pushed- down" 49 

release 49,85 

SECONDARY attribute 72 

speed of access 47 

to specify 49 

stacking 4 9 
Storage class attributes 49,85 

assumptions when specified 61 

for a cell at level 1 53 

structures 2 3 
Stream 

data specifications 99 

transmission 98 

transmission statements 111 
STREAM attribute 71 
STREAM input/output 96,111 

data specifications 99 
STREAM option 135 
STRING built-in function 157 
String data 27 

attributes 44 
String data 27 

attributes 44 

(see also Bit attribute. Bit string. 
Character attribute. Character string) 
String handling built-in functions 155 
String length 51,27 

asterisk in ENTRY attribute 79 

declared with based variable 50 

evaluation in ENTRY attribute 58,79 

evaluation in RETURNS attribute 72 

in ALLOCATE statement 117 

in DECLARE statement 117 

invalid use of STATIC attribute 49 

parameters and arguments 79 

of simple defined string 55 
STRING option 

in GET statement 131 

in PUT statement 137 
String variables 2 8 
STRINGRANGE condition 187,184 

enabled by programmer 92 

in defined data 54 
Structure 22 

ABNORMAL and NORMAL attributes 47 

arrays of 22 

as data-list element 100 

attributes of 2 3 

declaration of 38 

default attributes 42 

evaluation of expressions 36 

expressions 34 

generation of variable 84 

INITIAL attribute 62 

list-directed input format 101 

parameter 80 

storage class attributes 23,4 9 

table of operands and results 35 
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variable in USE or SETS list 7 3 

with LIKE attribute 65 
Structure (basic) of a program 16 
Structure (basic) of PL/I 13 
Subf ield 

of picture specification 67,68 
Subroutine 

procedure 76 

reference 76 

termination 77 
Subscripted name 2 3 

qualified 24 
SUBSCRIPTRANGE condition 187,184 

enabled by programmer 92 

in defined data 54 
Subscripts 2 3 

SUBSTR built-in function 147,157 
SUBSTR pseudo-variable 176 
Sub-task (see Task) 
£UM built-in function 170 
Suppression characters 68-7 
Switches (event names) 58 
Synchronizing asynchronous operations 88 
Synchronous operations 87 
Syntax notation 11 
SYSIN 114 

assumed in GET statement 131 
SYSPRINT 114 

assumed in PUT statement 137 
System 

action (see Standard system action) 

interrupt 93 
SYSTEM interrupt action specification 9 3 



T picture character 70,181 
TAN built-in function 166 
TAND built-in function 16 6 
TANH built-in function 16 6 
Target variable 119 
Task 88 

asynchronous 87 

attached task 8 9 

attaching task 8 9 

creation of 8 9 

dynamic descendance of 9 

EVENT attribute 58 

identifier default attributes 42 

locking 59,114 

options 89 

setting value of active event variable 
59 

sharing data 90 

sharing files 90 

protection from simultaneous updating 
114 

suspended execution of controllinq task 
125 

termination of 83,89,129 (EXIT) 

to investigate current state of 58,173 

variable 28, 40 
TASK attribute 74 
TASK option 

in CALL statement 12 3 

contextual declaration as task variable 
4 

creation of tasks 8 9 
Termination 



of blocks 82, 85,132 (GO TO) 

of data- directed data 104 

of list-directed data 101 

of preprocessor scan 145 

of procedure 139 

of tasks 89,129,142 
Testing a program 92 
THEN clause 

in %IF statement 

in IF statement 133 
TIME built-in function 17 4 
TITLE option 96,135 
To clause 126,127 

Transfer of control by GO TO statement 
44,47 

by GO TO statement 44,77 
Transmission 

data-directed 98 

edit-directed 99 

list-directed 98 

of data-list elements 99 

record 111 

statements 111 

stream 98 
TRANSMIT condition 186 
TRUNC built-in function 162 
Type conversion 33 



UNALIGNED attribute 4 7 

as default attribute 4 2 

assumptions when specified 51,60 

LIKE attribute expansion 66 

simple defining 54 

with RETURNS attribute 7 2 
UNBUFFERED attribute 52 
UNBUFFERED option 135 
UNDEFINEDFILE condition 186,97 
UNDERFLOW condition 185,184 

disabled by programmer 9 3 
Underlining of language elements 12 
UNLOCK statement 142,60,114 

attributes deduced 97 

implies RECORD 7 2 
Unlocking records 142,60,114 

CLOSE statement 12 4 

DELETE statement 125 

READ statement 139 

termination of task 89 
Unsigned constant 21 
UNSPEC built-in function 15 8 
UNSPEC pseudo- variable 17 6 
Unqualified identifiers 4 
UPDATE attribute 6 3 

implied by EXCLUSIVE 6 

RECORD implied 97 
UPDATE option 136 
Update-in-place mode 64 
Upper bound 21,5 6 
USES attribute 72,46 

defaults for ENTRY type identifier 42 

ENTRY attribute implied 57 

with GENERIC attribute 61 

with optimization attributes 6 4 



V picture character 68,69 
Value 
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completion 28, 58 

function 76 

of condition built-in functions 95 

status 2 8,58 
Variables 

abnormal 45 

allocation of 84 

altering values of 4 7 

area (see Area variable) 

arithmetic (see Arithmetic variable) 

array (see Arrays) 

automatic (see Automatic variable) 

based (see Based variable) 

compile-time 146,147 

controlled (see Controlled variable) 

defined (see Defining) 

dummy (see Dummy argument) 

element 21 

event (see Event variable) 

generation of 84 

label (see Label variable) 

locator (see Locator variable) 

notation 11 

offset (see Offset variable) 

pointer (see Pointer variable) 

prologue 8 2 

range of 21 

scalar 21 

statement- label 28 

static (see Static variable) 

string (see String data and string 
length) 

structure (see Structure) 

target 119 

task 28,40,74 

termination of task 89,9 

type of storage allocation for 49 
VARYING attribute 4 9 

concatenation 33 

invalid for based variable 50, 54 



invalid with defined items 54 
string scalar assignment rules 
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WAIT statement 142 

completion of event 59,88,89 

contextual declaration as event 
variable 40,58 

multiple interrupts 184 

synchronizing asynchronous operations 
88 
WHILE clause 126,128 
WRITE statement 14 3,9 6,114 

attributes deduced 97 

freeing based variable in buffer 87 

in locking task 60 



X format item 110 

X picture character 6 7 



Y picture character 70 



Z picture character 7 

Zero suppression characters 68,70,179 
ZERODIVIDE condition 185,184 
disabled by programmer 93 



1 picture character 68,69 

2 picture character 68,69 

3 picture character 6 8,69 
48-character set 191 
60-character set 13 

6 picture character 182 

7 picture character 182 

8 picture character 18 2 

9 picture character 67,68,70 



Index 



2 07 
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INDEX OF DEFINITIONS 



Abnormal variable 4 5 

Action specification 93 

Activation 8 2 

Active event variable 5 9 

Additive attributes 96 

Aggregate expressions 31 

Allocation 83 

Allocated variable 84 

Alphabetic characters 13 

Alphameric characters 13 

Alternative attributes 96 

Area 48 

Area variable 2 9 

Argument 77 

Arithmetic conversion 31 

Arithmetic data item 25 

Arithmetic operators 14 

Arithmetic variable 27 

Array 21 

Array of structures 22 

Assignment statement 119 

Asynchronous operations 8 7 

Attached task 8 9 

Attaching task 89 

Attribute 15 

Automatic storage 4 9 



Base 25 

Based storage 4 9 

Begin block 18 

Bit 13 

Bit string data 27 

Bit string operators 14 

Block 18 

Bounds 56 

Built-in function 76 



Call 124 

Cell 29 

Character string 27 

Coded arithmetic data 2 5 

Comme nt 16 

Comparison operators 3 3 

Compile time 14 5 

Complex 54 

Compound statement 17 

Concatenation 3 3 

Conditions 16 

Condition name 17 

Condition prefix 17 

Constant 21 

Constant statement- label 28 

Contextual declaration 40 

Controllled storage 49 

Conversion 30 

Cross section of an array 2 3 



Data 21 

Data-directed data 10 4 



Data-directed transmission 98 

Data item 21 

Data list 99 

Data set 96 

Deactivate 14 9 

Declaration 35 

Default 41 

Delimiter 14 

Designator, statement label 2! 

Digit and point specifier 178 

Drifting character 18 

Dummy argument 77 

Dynamic descendance 8 3 

Dynamic encompassing 8 3 



Edit-directed data 106 

Edit-directed transmission 99 

Element data item 21 

Element variable 21 

Entry name 18 

Entry point 18 

Event 88 

Event variable 28 

Explicit declaration 37 

Exponent specifier 18 2 

Expression 30 

External declaration 42 

External name 19 

External procedure 19 



Field, numeric 2 5 
File name 45 
Format item 107 
Format list 107 
Function procedure 76 
Function, built-in 154 
Function reference 76 



Generation of a block 83 
Generation of a variable 84 
Generic name 76 
Group 17 



Identifier 15 

Imaginary arithmetic constant 27 

Implicit declaration 41 

Inactive event variable 59 

Infix operation 30 

Input/output 96 

Insertion character 179 

Interleave! array 56 

Internal procedure 19 

Internal name 43 

Internal procedure 19 

Interrupt 91 

Invoking 123 

Iteration factor 62„107 

Iteration specification 62 
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Key 57 
Keyword 15 
Known 4 4 



Qualified name 24 



Label 17 
Level number 22 
List-directed data 101 
List-directed transmission 98 
Locator data 28 



Major structure 22 

Major task 8 8 

Minor structure 22 

Mode 26 

Multiple declaration 39 

Multitasking 88-91 



Name 2 3 

Notation constant 11 

Notation variable 11 

Null string 27 

Numeric bit data 67 

Numeric character data 67 

Numeric field 25 



Offset variable 28 
On-condition 91 
On-unit 134 
Operand 3 
Operators 14 
Option 16 



Parameter 75 
Picture 67 
Pointer variable 28 
"popped up" 8 6 
Precision 71 
Prefix 17 

Prefix operation 30 
Preprocessor 14 5 
Primary entry point 18 
Problem data 25 
Procedure 75 
Procedure block 18 
Procedure name 18 
Procedure reference 75 
Program 20 

Program control data 2 8 
Prologue 82 
Pseudo-variable 174 
Push- down stack 8 6 
"pushed down" 86 



Range of a variable 21 
Record 71 

Recursive procedure 81 
Repetitive specification 99 



Scalar expr 
Scalar item 
Scaling fac 
Scale of ar 
Scope of de 
Scope of ex 
Scope of na 
Secondary e 
Simple defi 
Simple name 
Simple stat 
Standard sy 
Statement 
Statement i 
Statement-1 
Statement-1 
Statement-1 
Static stor 
Sterling pi 
Storage cla 
Stream 71 
String 27 
String leng 
String vari 
Structure 
Subroutine 
Subroutine 
Subscript 
Subscripted 
Subscripted 
Sub-task 8 
Synchronous 



ess ion 30 

21 
tor 182 

ithmetic data 25 
claration 42 
ternal name 42 
me 42 

ntry point 18 
ning 54 

23 
ement 16 
stem action 93 
16 

dentifier 15 
abel data 2 8 
abel designator : 
abel variable 28 
age 4 9 
ctures 182 
ss 85 



th 27 

able 28 

22 

procedure 76 

reference 76 

23 

name 2 3 

qualified name 24 
8 

operations 87 



Task 88 

Task variable 88 
Termination of blocks 82 
Termination of tasks 89 
Type conversion 33 



Variable 21 
Varying length 51 



Zero suppression character 179 
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